From 51ed8d5f4790ae8d296ac03e3fcba6c535f225f7 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 13 Feb 2016 17:13:35 +1100 Subject: [PATCH] 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 file changed, 4 insertions(+), 9 deletions(-) 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) -- 2.39.2