mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(bug-reference-fontify): Check for

Browse Source 
non-nil `bug-reference-url-format' before putting an overlay
property `bug-reference-url'.
(bug-reference-mode, bug-reference-prog-mode): Don't check for
`bug-reference-url-format'.  Doc fix.  (Bug#1744)
This commit is contained in:
Juri Linkov 2009-01-14 00:37:49 +00:00
parent a372b1a24f
commit 1cec8b5fa6
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/progmodes/bug-reference.el
View File

@ -85,9 +85,11 @@ There is no default setting for this, it must be set per file.")
(let ((overlay (make-overlay (match-beginning 0) (match-end 0)
nil t nil)))
(overlay-put overlay 'category 'bug-reference)
(overlay-put overlay 'bug-reference-url
(format bug-reference-url-format
(match-string-no-properties 1)))))))))
;; Don't put a link if format is undefined
(when bug-reference-url-format
(overlay-put overlay 'bug-reference-url
(format bug-reference-url-format
(match-string-no-properties 1))))))))))
;; Taken from button.el.
(defun bug-reference-push-button (&optional pos use-mouse-action)
@ -108,14 +110,12 @@ There is no default setting for this, it must be set per file.")
;;;###autoload
(define-minor-mode bug-reference-mode
"Minor mode to buttonize bugzilla references in the current buffer.
Requires `bug-reference-url-format' to be set in the buffer."
"Minor mode to buttonize bugzilla references in the current buffer."
nil
""
nil
(if bug-reference-mode
(when bug-reference-url-format
(jit-lock-register #'bug-reference-fontify))
(jit-lock-register #'bug-reference-fontify)
(jit-lock-unregister #'bug-reference-fontify)
(save-restriction
(widen)
@ -128,8 +128,7 @@ Requires `bug-reference-url-format' to be set in the buffer."
""
nil
(if bug-reference-prog-mode
(when bug-reference-url-format
(jit-lock-register #'bug-reference-fontify))
(jit-lock-register #'bug-reference-fontify)
(jit-lock-unregister #'bug-reference-fontify)
(save-restriction
(widen)