[Emacs-diffs] master 51ed8d5 12/12: Remove compat code from gnus-spec.el

[Lars Ingebrigtsen]

branch: master
commit 51ed8d5f4790ae8d296ac03e3fcba6c535f225f7
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/gnus/gnus-spec.el |   13 ++++---------
 1 files changed, 4 insertions(+), 9 deletions(-)

diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el
index 36f6f43..5d6ad7f 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)