diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-10 14:24:11 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-10 14:24:11 +1100 |
| commit | a3c2634f90ae744ae53c408257c416a9645cf158 (patch) | |
| tree | 7197273e5b8afa0146abfe959353b877f0aeb6af /lisp/gnus/gnus-spec.el | |
| parent | 5b458e9ec92f02fcdcd1642263af440f5b6395d8 (diff) | |
| download | emacs-a3c2634f90ae744ae53c408257c416a9645cf158.tar.gz | |
Get rid of gnus-ems-redefine
* lisp/gnus/gnus-ems.el (gnus-mouse-face-prop): Remove.
Diffstat (limited to 'lisp/gnus/gnus-spec.el')
| -rw-r--r-- | lisp/gnus/gnus-spec.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el index 87b9b254e00..380474d925b 100644 --- a/lisp/gnus/gnus-spec.el +++ b/lisp/gnus/gnus-spec.el @@ -79,7 +79,6 @@ text properties. This is only needed on XEmacs, as Emacs does this anyway." (defvar gnus-tmp-news-method) (defvar gnus-tmp-news-server) (defvar gnus-mouse-face) -(defvar gnus-mouse-face-prop) (defvar gnus-tmp-header) (defvar gnus-tmp-from) @@ -228,7 +227,7 @@ Return a list of updated types." (defun gnus-mouse-face-function (form type) `(gnus-put-text-property (point) (progn ,@form (point)) - gnus-mouse-face-prop + mouse-face ,(if (equal type 0) 'gnus-mouse-face `(quote ,(symbol-value (intern (format "gnus-mouse-face-%d" type))))))) @@ -743,7 +742,7 @@ If PROPS, insert the result." gnus-tmp-name)) gnus-tmp-closing-bracket) (point)) - gnus-mouse-face-prop gnus-mouse-face) + 'mouse-face gnus-mouse-face) (insert " " gnus-tmp-subject-or-nil "\n")) (provide 'gnus-spec) |