+2015-08-19 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ Use overlay functions directly
+
+ * dgnushack.el (overlay): Autoload overlay functions for XEmacs.
+ * lpath.el (delete-overlay, overlay-lists): Remove Fibnd.
+
+ * 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):
+ * gnus-cite.el (gnus-cite-delete-overlays, gnus-cite-add-face):
+ * gnus-html.el (gnus-html-wash-tags):
+ * gnus-salt.el (gnus-tree-read-summary-keys, gnus-tree-recenter)
+ (gnus-highlight-selected-tree):
+ * gnus-sum.el (gnus-summary-show-all-threads, gnus-summary-show-thread)
+ (gnus-summary-hide-thread, gnus-highlight-selected-summary):
+ * gnus-util.el (gnus-put-overlay-excluding-newlines):
+ * message.el (message-fix-before-sending)
+ (message-toggle-image-thumbnails):
+ * mm-decode.el (mm-convert-shr-links):
+ * sieve.el (sieve-highlight, sieve-insert-scripts):
+ Use overlay functions directly instead of using gnus-overlay-*,
+ message-overlay-*, and sieve-overlay-*.
+
+ * gnus-sum.el (gnus-remove-overlays):
+ * gnus-xmas.el (gnus-xmas-move-overlay, gnus-xmas-overlays-at)
+ (gnus-xmas-overlays-in, 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):
+ * 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):
+ * message.el (message-delete-overlay, message-make-overlay)
+ (message-overlay-get, message-overlay-put, message-overlays-in):
+ * messagexmas.el (message-delete-overlay, message-make-overlay)
+ (message-overlay-get, message-overlay-put, message-overlays-in):
+ * sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
+ Remove.
+
2015-08-19 Glenn Morris <rgm@gnu.org>
* nnmaildir.el (nnmaildir-flag-mark-mapping): Add "P".
(defalias 'frame-char-height 'frame-height)
(defalias 'frame-char-width 'frame-width)
(defalias 'frame-parameter 'frame-property)
- (defalias 'make-overlay 'ignore)
- (defalias 'overlay-end 'ignore)
- (defalias 'overlay-get 'ignore)
- (defalias 'overlay-put 'ignore)
- (defalias 'overlay-start 'ignore)
- (defalias 'overlays-in 'ignore)
(defalias 'replace-dehighlight 'ignore)
(defalias 'replace-highlight 'ignore)
(defalias 'gnutls-available-p 'ignore)
(defvar timer-list nil)
- (defvar scroll-margin 0)))
+ (defvar scroll-margin 0)
+ (dolist (fn '(copy-overlay
+ delete-overlay make-overlay move-overlay next-overlay-change
+ overlay-buffer overlay-end overlay-get overlay-lists
+ overlay-properties overlay-put overlay-recenter overlay-start
+ overlayp overlays-at overlays-in previous-overlay-change
+ remove-overlays))
+ (autoload fn "overlay"))))
(defun dgnushack-emacs-compile-defcustom-p ()
"Return non-nil if Emacs byte compiles `defcustom' forms.
'gnus-undeletable t))))
;; We're in the article header.
(delete-char -1)
- (dolist (ovl (gnus-overlays-in btn (point)))
- (gnus-overlay-put ovl 'gnus-button-attachment-extra t)
- (gnus-overlay-put ovl 'face nil))
+ (dolist (ovl (overlays-in btn (point)))
+ (overlay-put ovl 'gnus-button-attachment-extra t)
+ (overlay-put ovl 'face nil))
(save-restriction
(message-narrow-to-field)
(let ((gnus-treatment-function-alist
'gnus-undeletable t))))
;; We're in the article header.
(delete-char -1)
- (dolist (ovl (gnus-overlays-in point (point)))
- (gnus-overlay-put ovl 'gnus-button-attachment-extra t)
- (gnus-overlay-put ovl 'face nil))
+ (dolist (ovl (overlays-in point (point)))
+ (overlay-put ovl 'gnus-button-attachment-extra t)
+ (overlay-put ovl 'face nil))
(save-restriction
(message-narrow-to-field)
(let ((gnus-treatment-function-alist
(1- (point))
(point)))
(when gnus-article-button-face
- (gnus-overlay-put (gnus-make-overlay b e nil t)
- 'face gnus-article-button-face))
+ (overlay-put (make-overlay b e nil t)
+ 'face gnus-article-button-face))
(widget-convert-button
'link b e
:mime-handle handle
(insert "\n")
(end-of-line)))
(insert "\n")
- (dolist (ovl (gnus-overlays-in (point-min) (point)))
- (gnus-overlay-put ovl 'gnus-button-attachment-extra t)
- (gnus-overlay-put ovl 'face nil))
+ (dolist (ovl (overlays-in (point-min) (point)))
+ (overlay-put ovl 'gnus-button-attachment-extra t)
+ (overlay-put ovl 'face nil))
(let ((gnus-treatment-function-alist
'((gnus-treat-highlight-headers
gnus-article-highlight-headers))))
(save-restriction
(when (and gnus-signature-face
(gnus-article-narrow-to-signature))
- (gnus-overlay-put (gnus-make-overlay (point-min) (point-max) nil t)
- 'face gnus-signature-face)
+ (overlay-put (make-overlay (point-min) (point-max) nil t)
+ 'face gnus-signature-face)
(widen)
(gnus-article-search-signature)
(let ((start (match-beginning 0))
'gnus-button-push
(list beg (assq 'gnus-button-url-regexp
gnus-button-alist)))))
- (let ((overlay (gnus-make-overlay start end)))
- (gnus-overlay-put overlay 'evaporate t)
- (gnus-overlay-put overlay 'gnus-button-url
- (list (mapconcat 'identity (nreverse url) "")))
+ (let ((overlay (make-overlay start end)))
+ (overlay-put overlay 'evaporate t)
+ (overlay-put overlay 'gnus-button-url
+ (list (mapconcat 'identity (nreverse url) "")))
(when gnus-article-mouse-face
- (gnus-overlay-put overlay 'mouse-face gnus-article-mouse-face)))
+ (overlay-put overlay 'mouse-face gnus-article-mouse-face)))
t)
(goto-char opoint))))
(defun gnus-article-add-button (from to fun &optional data text)
"Create a button between FROM and TO with callback FUN and data DATA."
(when gnus-article-button-face
- (gnus-overlay-put (gnus-make-overlay from to nil t)
- 'face gnus-article-button-face))
+ (overlay-put (make-overlay from to nil t)
+ 'face gnus-article-button-face))
(gnus-add-text-properties
from to
(nconc (and gnus-article-mouse-face
(1- (point))
(point)))
(when gnus-article-button-face
- (gnus-overlay-put (gnus-make-overlay b e nil t)
- 'face gnus-article-button-face))
+ (overlay-put (make-overlay b e nil t)
+ 'face gnus-article-button-face))
(widget-convert-button
'link b e
:action 'gnus-button-prev-page
(1- (point))
(point)))
(when gnus-article-button-face
- (gnus-overlay-put (gnus-make-overlay b e nil t)
- 'face gnus-article-button-face))
+ (overlay-put (make-overlay b e nil t)
+ 'face gnus-article-button-face))
(widget-convert-button
'link b e
:action 'gnus-button-next-page
(1- (point))
(point)))
(when gnus-article-button-face
- (gnus-overlay-put (gnus-make-overlay b e nil t)
- 'face gnus-article-button-face))
+ (overlay-put (make-overlay b e nil t)
+ 'face gnus-article-button-face))
(widget-convert-button
'link b e
:mime-handle handle
(defun gnus-cite-delete-overlays ()
(dolist (overlay gnus-cite-overlay-list)
(ignore-errors
- (when (or (not (gnus-overlay-end overlay))
- (and (>= (gnus-overlay-end overlay) (point-min))
- (<= (gnus-overlay-end overlay) (point-max))))
+ (when (or (not (overlay-end overlay))
+ (and (>= (overlay-end overlay) (point-min))
+ (<= (overlay-end overlay) (point-max))))
(setq gnus-cite-overlay-list (delete overlay gnus-cite-overlay-list))
(ignore-errors
- (gnus-delete-overlay overlay))))))
+ (delete-overlay overlay))))))
(defun gnus-cite-parse-wrapper ()
;; Wrap chopped gnus-cite-parse.
(skip-chars-backward " \t")
(setq to (point))
(when (< from to)
- (push (setq overlay (gnus-make-overlay from to nil t))
+ (push (setq overlay (make-overlay from to nil t))
gnus-cite-overlay-list)
- (gnus-overlay-put overlay 'evaporate t)
- (gnus-overlay-put overlay 'face face))))))
+ (overlay-put overlay 'evaporate t)
+ (overlay-put overlay 'face face))))))
(defun gnus-cite-toggle (prefix)
(with-current-buffer gnus-article-buffer
(gnus-article-add-button start end
'browse-url (mm-url-decode-entities-string url)
url)
- (let ((overlay (gnus-make-overlay start end)))
- (gnus-overlay-put overlay 'evaporate t)
- (gnus-overlay-put overlay 'gnus-button-url url)
+ (let ((overlay (make-overlay start end)))
+ (overlay-put overlay 'evaporate t)
+ (overlay-put overlay 'gnus-button-url url)
(gnus-put-text-property start end 'gnus-string url)
(when gnus-article-mouse-face
- (gnus-overlay-put overlay 'mouse-face gnus-article-mouse-face)))))
+ (overlay-put overlay 'mouse-face gnus-article-mouse-face)))))
;; The upper-case IMG_ALT is apparently just an artifact that
;; should be deleted.
((equal tag "IMG_ALT")
;; w3m does not normalize the case
((or (equal tag "b")
(equal tag "B"))
- (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-bold))
+ (overlay-put (make-overlay start end) 'face 'gnus-emphasis-bold))
((or (equal tag "u")
(equal tag "U"))
- (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-underline))
+ (overlay-put (make-overlay start end) 'face 'gnus-emphasis-underline))
((or (equal tag "i")
(equal tag "I"))
- (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-italic))
+ (overlay-put (make-overlay start end) 'face 'gnus-emphasis-italic))
((or (equal tag "s")
(equal tag "S"))
- (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-strikethru))
+ (overlay-put (make-overlay start end) 'face 'gnus-emphasis-strikethru))
((or (equal tag "ins")
(equal tag "INS"))
- (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-underline))
+ (overlay-put (make-overlay start end) 'face 'gnus-emphasis-underline))
;; Handle different UL types
((equal tag "_SYMBOL")
(when (string-match "TYPE=\\(.+\\)" parameters)
(when (setq win (get-buffer-window buf))
(select-window win)
(when gnus-selected-tree-overlay
- (goto-char (or (gnus-overlay-end gnus-selected-tree-overlay) 1)))
+ (goto-char (or (overlay-end gnus-selected-tree-overlay) 1)))
(gnus-tree-minimize)))))
(defun gnus-tree-show-summary ()
(when tree-window
(select-window tree-window)
(when gnus-selected-tree-overlay
- (goto-char (or (gnus-overlay-end gnus-selected-tree-overlay) 1)))
+ (goto-char (or (overlay-end gnus-selected-tree-overlay) 1)))
(let* ((top (cond ((< (window-height) 4) 0)
((< (window-height) 7) 1)
(t 2)))
(when (or (not gnus-selected-tree-overlay)
(gnus-extent-detached-p gnus-selected-tree-overlay))
;; Create a new overlay.
- (gnus-overlay-put
+ (overlay-put
(setq gnus-selected-tree-overlay
- (gnus-make-overlay (point-min) (1+ (point-min))))
+ (make-overlay (point-min) (1+ (point-min))))
'face gnus-selected-tree-face))
;; Move the overlay to the article.
- (gnus-move-overlay
+ (move-overlay
gnus-selected-tree-overlay (goto-char (car region)) (cdr region))
(gnus-tree-minimize)
(gnus-tree-recenter)
(gnus-message 6 "Threading is now %s" (if gnus-show-threads "on" "off"))
(gnus-summary-position-point)))
-(eval-and-compile
- (if (fboundp 'remove-overlays)
- (defalias 'gnus-remove-overlays 'remove-overlays)
- (defun gnus-remove-overlays (beg end name val)
- "Clear BEG and END of overlays whose property NAME has value VAL.
-For compatibility with XEmacs."
- (dolist (ov (gnus-overlays-in beg end))
- (when (eq (gnus-overlay-get ov name) val)
- (gnus-delete-overlay ov))))))
-
(defun gnus-summary-show-all-threads ()
"Show all threads."
(interactive)
- (gnus-remove-overlays (point-min) (point-max) 'invisible 'gnus-sum)
+ (remove-overlays (point-min) (point-max) 'invisible 'gnus-sum)
(gnus-summary-position-point))
(defsubst gnus-summary--inv (p)
'gnus-sum))))
(point)))))
(when eoi
- (gnus-remove-overlays beg eoi 'invisible 'gnus-sum)
+ (remove-overlays beg eoi 'invisible 'gnus-sum)
(goto-char orig)
(gnus-summary-position-point)
eoi)))
(search-backward "\n" start t))
(progn
(when (> (point) starteol)
- (gnus-remove-overlays starteol (point) 'invisible 'gnus-sum)
- (let ((ol (gnus-make-overlay starteol (point) nil t nil)))
- (gnus-overlay-put ol 'invisible 'gnus-sum)
- (gnus-overlay-put ol 'evaporate t)))
+ (remove-overlays starteol (point) 'invisible 'gnus-sum)
+ (let ((ol (make-overlay starteol (point) nil t nil)))
+ (overlay-put ol 'invisible 'gnus-sum)
+ (overlay-put ol 'evaporate t)))
(gnus-summary-goto-subject article)
(when (> start (point))
(message "Hiding the thread moved us backwards, aborting!")
(setq to end))
(if gnus-newsgroup-selected-overlay
;; Move old overlay.
- (gnus-move-overlay
+ (move-overlay
gnus-newsgroup-selected-overlay from to (current-buffer))
;; Create new overlay.
- (gnus-overlay-put
- (setq gnus-newsgroup-selected-overlay (gnus-make-overlay from to))
+ (overlay-put
+ (setq gnus-newsgroup-selected-overlay (make-overlay from to))
'face gnus-summary-selected-face))))))
(defvar gnus-summary-highlight-line-cached nil)
(setq beg (point)))
(gnus-put-text-property beg (point) prop val)))))
-(declare-function gnus-overlay-put "gnus" (overlay prop value))
-(declare-function gnus-make-overlay "gnus"
- (beg end &optional buffer front-advance rear-advance))
-
(defsubst gnus-put-overlay-excluding-newlines (beg end prop val)
"The same as `put-text-property', but don't put this prop on any newlines in the region."
(save-match-data
(save-restriction
(goto-char beg)
(while (re-search-forward gnus-emphasize-whitespace-regexp end 'move)
- (gnus-overlay-put
- (gnus-make-overlay beg (match-beginning 0))
- prop val)
+ (overlay-put (make-overlay beg (match-beginning 0)) prop val)
(setq beg (point)))
- (gnus-overlay-put (gnus-make-overlay beg (point)) prop val)))))
+ (overlay-put (make-overlay beg (point)) prop val)))))
(defun gnus-put-text-property-excluding-characters-with-faces (beg end prop val)
"The same as `put-text-property', except where `gnus-face' is set.
(when fun
(funcall fun data))))
-(defun gnus-xmas-move-overlay (extent start end &optional buffer)
- (set-extent-endpoints extent start end buffer))
-
(defun gnus-xmas-kill-all-overlays ()
"Delete all extents in the current buffer."
(map-extents (lambda (extent ignore)
(delete-extent extent)
nil)))
-(defun gnus-xmas-overlays-at (pos)
- "Return a list of the extents that contain the character at POS."
- (mapcar-extents #'identity nil nil pos (1+ pos)))
-
-(defun gnus-xmas-overlays-in (beg end)
- "Return a list of the extents that overlap the region BEG ... END."
- (mapcar-extents #'identity nil nil beg end))
-
(defun gnus-xmas-window-top-edge (&optional window)
(nth 1 (window-pixel-edges window)))
(unless (face-differs-from-default-p 'underline)
(funcall (intern "set-face-underline-p") 'underline t))
- (defalias 'gnus-make-overlay
- (lambda (beg end &optional buffer front-advance rear-advance)
- "Create a new overlay with range BEG to END in BUFFER.
-FRONT-ADVANCE and REAR-ADVANCE are ignored."
- (make-extent beg end buffer)))
-
- (defalias 'gnus-copy-overlay 'copy-extent)
- (defalias 'gnus-delete-overlay 'delete-extent)
- (defalias 'gnus-overlay-get 'extent-property)
- (defalias 'gnus-overlay-put 'set-extent-property)
- (defalias 'gnus-move-overlay 'gnus-xmas-move-overlay)
- (defalias 'gnus-overlay-buffer 'extent-object)
- (defalias 'gnus-overlay-start 'extent-start-position)
- (defalias 'gnus-overlay-end 'extent-end-position)
- (defalias 'gnus-overlays-at 'gnus-xmas-overlays-at)
- (defalias 'gnus-overlays-in 'gnus-xmas-overlays-in)
(defalias 'gnus-kill-all-overlays 'gnus-xmas-kill-all-overlays)
(defalias 'gnus-extent-detached-p 'extent-detached-p)
(defalias 'gnus-add-text-properties 'gnus-xmas-add-text-properties)
:type 'boolean)
(unless (featurep 'gnus-xmas)
- (defalias 'gnus-make-overlay 'make-overlay)
- (defalias 'gnus-copy-overlay 'copy-overlay)
- (defalias 'gnus-delete-overlay 'delete-overlay)
- (defalias 'gnus-overlay-get 'overlay-get)
- (defalias 'gnus-overlay-put 'overlay-put)
- (defalias 'gnus-move-overlay 'move-overlay)
- (defalias 'gnus-overlay-buffer 'overlay-buffer)
- (defalias 'gnus-overlay-start 'overlay-start)
- (defalias 'gnus-overlay-end 'overlay-end)
- (defalias 'gnus-overlays-at 'overlays-at)
- (defalias 'gnus-overlays-in 'overlays-in)
(defalias 'gnus-extent-detached-p 'ignore)
(defalias 'gnus-extent-start-open 'ignore)
(defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
bookmark-default-handler bookmark-get-bookmark-record
bookmark-make-record-default bookmark-prop-get clear-string codepage-setup
coding-system-from-name completion-at-point cp-supported-codepages
- create-image debbugs-gnu cursor-sensor-mode delete-overlay
- detect-coding-string display-time-event-handler epg-check-configuration
- event-click-count event-end event-start find-coding-systems-for-charsets
+ create-image debbugs-gnu cursor-sensor-mode detect-coding-string
+ display-time-event-handler epg-check-configuration event-click-count
+ event-end event-start find-coding-systems-for-charsets
find-coding-systems-region find-coding-systems-string find-image
float-time gnutls-negotiate font-lock-ensure font-lock-flush help-buffer
ido-completing-read image-size image-type-available-p insert-image
jka-compr-info-uncompress-message jka-compr-info-uncompress-program
jka-compr-installed-p jka-compr-make-temp-name libxml-parse-html-region
mail-abbrevs-setup make-mode-line-mouse-map make-network-process make-term
- mouse-minibuffer-check mouse-movement-p mouse-scroll-subr overlay-lists
+ mouse-minibuffer-check mouse-movement-p mouse-scroll-subr
pgg-display-output-buffer posn-point posn-window process-type put-image
read-char-choice read-event recenter-top-bottom
rmail-msg-restore-non-pruned-header rmail-swap-buffers-maybe
(eval-and-compile
(if (featurep 'emacs)
(progn
- (defalias 'message-delete-overlay 'delete-overlay)
(defun message-kill-all-overlays ()
(mapcar #'delete-overlay (overlays-in (point-min) (point-max))))
- (defalias 'message-make-overlay 'make-overlay)
- (defalias 'message-overlay-get 'overlay-get)
- (defalias 'message-overlay-put 'overlay-put)
- (defalias 'message-overlays-in 'overlays-in)
(defalias 'message-window-inside-pixel-edges
'window-inside-pixel-edges))
(defun message-kill-all-overlays ()
to (cdar regions)
regions (cdr regions))
(put-text-property from to 'invisible nil)
- (message-overlay-put (message-make-overlay from to)
- 'face 'highlight))
+ (overlay-put (make-overlay from to) 'face 'highlight))
(unless (yes-or-no-p
"Invisible text found and made visible; continue sending? ")
(error "Invisible text found and made visible")))))
control-1))
(not (get-text-property
(point) 'untranslated-utf-8))))
- (message-overlay-put (message-make-overlay (point) (1+ (point)))
- 'face 'highlight)
+ (overlay-put (make-overlay (point) (1+ (point))) 'face 'highlight)
(setq found t))
(forward-char))
(when found
(defun message-toggle-image-thumbnails ()
"For any included image files, insert a thumbnail of that image."
(interactive)
- (let ((overlays (message-overlays-in (point-min) (point-max)))
+ (let ((overlays (overlays-in (point-min) (point-max)))
(displayed nil))
(while overlays
(let ((overlay (car overlays)))
- (when (message-overlay-get overlay 'put-image)
- (message-delete-overlay overlay)
+ (when (overlay-get overlay 'put-image)
+ (delete-overlay overlay)
(setq displayed t)))
(setq overlays (cdr overlays)))
(unless displayed
'region-exists-p)
(defalias 'message-make-caesar-translation-table
'message-xmas-make-caesar-translation-table)
- (defalias 'message-delete-overlay 'delete-extent)
- (defun message-make-overlay (beg end &optional buffer
- front-advance rear-advance)
- "Create a new overlay with range BEG to END in BUFFER.
-FRONT-ADVANCE and REAR-ADVANCE are ignored."
- (make-extent beg end buffer))
- (defalias 'message-overlay-get 'extent-property)
- (defalias 'message-overlay-put 'set-extent-property)
- (defun message-overlays-in (beg end)
- "Return a list of the extents that overlap the region BEG ... END."
- (mapcar-extents #'identity nil nil beg end))
(defalias 'message-make-date 'message-xmas-make-date))
(message-xmas-redefine)
(autoload 'gnus-replace-in-string "gnus-util")
(autoload 'gnus-read-shell-command "gnus-util")
-(autoload 'gnus-overlays-at "gnus")
-(autoload 'gnus-overlay-put "gnus")
-
(autoload 'mm-inline-partial "mm-partial")
(autoload 'mm-inline-external-body "mm-extern")
(autoload 'mm-extern-cache-contents "mm-extern")
:keymap shr-map
(get-text-property start 'shr-url))
(put-text-property start end 'local-map nil)
- (dolist (overlay (gnus-overlays-at start))
- (gnus-overlay-put overlay 'face nil))
+ (dolist (overlay (overlays-at start))
+ (overlay-put overlay 'face nil))
(setq start end)))))
(defun mm-handle-filename (handle)
(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."
(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)