aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/progmodes/bug-reference.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el
index 759db1f5686..813ecbe3847 100644
--- a/lisp/progmodes/bug-reference.el
+++ b/lisp/progmodes/bug-reference.el
@@ -1,4 +1,4 @@
1;; bug-reference.el --- buttonize bug references 1;; bug-reference.el --- buttonize bug references -*- lexical-binding: t; -*-
2 2
3;; Copyright (C) 2008-2019 Free Software Foundation, Inc. 3;; Copyright (C) 2008-2019 Free Software Foundation, Inc.
4 4
@@ -91,7 +91,7 @@ The second subexpression should match the bug reference (usually a number)."
91(bug-reference-set-overlay-properties) 91(bug-reference-set-overlay-properties)
92 92
93(defun bug-reference-unfontify (start end) 93(defun bug-reference-unfontify (start end)
94 "Remove bug reference overlays from region." 94 "Remove bug reference overlays from the region between START and END."
95 (dolist (o (overlays-in start end)) 95 (dolist (o (overlays-in start end))
96 (when (eq (overlay-get o 'category) 'bug-reference) 96 (when (eq (overlay-get o 'category) 'bug-reference)
97 (delete-overlay o)))) 97 (delete-overlay o))))
@@ -99,7 +99,7 @@ The second subexpression should match the bug reference (usually a number)."
99(defvar bug-reference-prog-mode) 99(defvar bug-reference-prog-mode)
100 100
101(defun bug-reference-fontify (start end) 101(defun bug-reference-fontify (start end)
102 "Apply bug reference overlays to region." 102 "Apply bug reference overlays to the region between START and END."
103 (save-excursion 103 (save-excursion
104 (let ((beg-line (progn (goto-char start) (line-beginning-position))) 104 (let ((beg-line (progn (goto-char start) (line-beginning-position)))
105 (end-line (progn (goto-char end) (line-end-position)))) 105 (end-line (progn (goto-char end) (line-end-position))))