From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 13 Feb 2016 06:13:35 +0000 (+1100)
Subject: Remove compat code from gnus-spec.el
X-Git-Tag: emacs-26.0.90~2582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51ed8d5f4790ae8d296ac03e3fcba6c535f225f7;p=emacs.git

Remove compat code from gnus-spec.el

* lisp/gnus/gnus-spec.el (gnus-lrm-string-p): Remove compat code.
(gnus-balloon-face-function): Remove compat code.
---

diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el
index 36f6f430e42..5d6ad7f14eb 100644
--- a/lisp/gnus/gnus-spec.el
+++ b/lisp/gnus/gnus-spec.el
@@ -73,11 +73,9 @@
                   (header gnus-tmp-from))
 
 (defmacro gnus-lrm-string-p (string)
-  (if (fboundp 'bidi-string-mark-left-to-right)
-      ;; LRM, RLM, PDF characters as integers to avoid breaking Emacs
-      ;; 23.
-      `(memq (aref ,string (1- (length ,string))) '(8206 8207 8236))
-    nil))
+  ;; LRM, RLM, PDF characters as integers to avoid breaking Emacs
+  ;; 23.
+  `(memq (aref ,string (1- (length ,string))) '(8206 8207 8236)))
 
 (defvar gnus-lrm-string (if (ignore-errors (string 8206))
 			    (propertize (string 8206) 'invisible t)
@@ -258,10 +256,7 @@ Return a list of updated types."
 
 (defun gnus-balloon-face-function (form type)
   `(gnus-put-text-property
-    (point) (progn ,@form (point))
-    ,(if (fboundp 'balloon-help-mode)
-	 ''balloon-help
-       ''help-echo)
+    (point) (progn ,@form (point)) 'help-echo
     ,(intern (format "gnus-balloon-face-%d" type))))
 
 (defun gnus-spec-tab (column)