diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:13:35 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:13:35 +1100 |
| commit | 51ed8d5f4790ae8d296ac03e3fcba6c535f225f7 (patch) | |
| tree | 2d1b7a4190ff3de1c6dbd5c86a25dff2701552e3 /lisp/gnus/gnus-spec.el | |
| parent | 7a42ebd969efd896185b0822e7031268a8f8080d (diff) | |
| download | emacs-51ed8d5f4790ae8d296ac03e3fcba6c535f225f7.tar.gz emacs-51ed8d5f4790ae8d296ac03e3fcba6c535f225f7.tar.bz2 emacs-51ed8d5f4790ae8d296ac03e3fcba6c535f225f7.zip | |
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.
Diffstat (limited to 'lisp/gnus/gnus-spec.el')
| -rw-r--r-- | 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 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) |