diff options
author | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-08-19 09:06:40 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-08-19 09:06:40 +0000 |
commit | a83be20b2f3b1ad499c7584caa08434cc66bb98f (patch) | |
tree | 94c6afeab0f14fade290e3ef6fb6545a413f49a0 /lisp/gnus/sieve.el | |
parent | 62661fe759dfc826f31b032e49f0f15b40a207d5 (diff) | |
download | emacs-a83be20b2f3b1ad499c7584caa08434cc66bb98f.tar.gz |
[Gnus]: Use overlay functions directly
* lisp/gnus/gnus-art.el (gnus-mime-inline-part, gnus-mm-display-part)
(gnus-insert-mime-button, gnus-mime-buttonize-attachments-in-header)
(gnus-article-highlight-signature, gnus-article-extend-url-button)
(gnus-article-add-button, gnus-insert-prev-page-button)
(gnus-insert-next-page-button, gnus-insert-mime-security-button):
* lisp/gnus/gnus-cite.el (gnus-cite-delete-overlays)
(gnus-cite-add-face):
* lisp/gnus/gnus-html.el (gnus-html-wash-tags):
* lisp/gnus/gnus-salt.el (gnus-tree-read-summary-keys)
(gnus-tree-recenter, gnus-highlight-selected-tree):
* lisp/gnus/gnus-sum.el (gnus-summary-show-all-threads)
(gnus-summary-show-thread, gnus-summary-hide-thread)
(gnus-highlight-selected-summary):
* lisp/gnus/gnus-util.el (gnus-put-overlay-excluding-newlines):
* lisp/gnus/message.el (message-fix-before-sending)
(message-toggle-image-thumbnails):
* lisp/gnus/mm-decode.el (mm-convert-shr-links):
* lisp/gnus/sieve.el (sieve-highlight, sieve-insert-scripts):
Use overlay functions directly instead of using gnus-overlay-*,
message-overlay-*, and sieve-overlay-*.
* lisp/gnus/gnus-sum.el (gnus-remove-overlays):
* lisp/gnus/gnus.el (gnus-make-overlay, gnus-copy-overlay)
(gnus-delete-overlay, gnus-overlay-get, gnus-overlay-put)
(gnus-move-overlay, gnus-overlay-buffer, gnus-overlay-start)
(gnus-overlay-end, gnus-overlays-at, gnus-overlays-in):
* lisp/gnus/message.el (message-delete-overlay, message-make-overlay)
(message-overlay-get, message-overlay-put, message-overlays-in):
* lisp/gnus/sieve.el (sieve-make-overlay, sieve-overlay-put)
(sieve-overlays-at):
Remove.
Diffstat (limited to 'lisp/gnus/sieve.el')
-rw-r--r-- | lisp/gnus/sieve.el | 24 |
1 files changed, 6 insertions, 18 deletions
diff --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el index 6eef569901d..8d40fa455bd 100644 --- a/lisp/gnus/sieve.el +++ b/lisp/gnus/sieve.el @@ -275,21 +275,9 @@ Used to bracket operations which move point in the sieve-buffer." (interactive "d") (get-char-property (or pos (point)) 'script-name)) -(eval-and-compile - (defalias 'sieve-make-overlay (if (featurep 'xemacs) - 'make-extent - 'make-overlay)) - (defalias 'sieve-overlay-put (if (featurep 'xemacs) - 'set-extent-property - 'overlay-put)) - (defalias 'sieve-overlays-at (if (featurep 'xemacs) - 'extents-at - 'overlays-at))) - (defun sieve-highlight (on) "Turn ON or off highlighting on the current language overlay." - (sieve-overlay-put (car (sieve-overlays-at (point))) - 'face (if on 'highlight 'default))) + (overlay-put (car (overlays-at (point))) 'face (if on 'highlight 'default))) (defun sieve-insert-scripts (scripts) "Format and insert LANGUAGE-LIST strings into current buffer at point." @@ -300,11 +288,11 @@ Used to bracket operations which move point in the sieve-buffer." (if (consp script) (insert (format " ACTIVE %s" (cdr script))) (insert (format " %s" script))) - (setq ext (sieve-make-overlay p (point))) - (sieve-overlay-put ext 'mouse-face 'highlight) - (sieve-overlay-put ext 'script-name (if (consp script) - (cdr script) - script)) + (setq ext (make-overlay p (point))) + (overlay-put ext 'mouse-face 'highlight) + (overlay-put ext 'script-name (if (consp script) + (cdr script) + script)) (insert "\n")))) (defun sieve-open-server (server &optional port) |