diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/bug-reference.el | 6 |
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)))) |