Mercurial > emacs
comparison lisp/progmodes/bug-reference.el @ 94323:e8d2086bbf1a
(bug-reference-prog-mode): Define for compiler.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 24 Apr 2008 05:53:44 +0000 |
| parents | 91dd07fb6b73 |
| children | 52b7a8c22af5 |
comparison
equal
deleted
inserted
replaced
| 94322:7d04264dc66f | 94323:e8d2086bbf1a |
|---|---|
| 63 (defun bug-reference-unfontify (start end) | 63 (defun bug-reference-unfontify (start end) |
| 64 "Remove bug reference overlays from region." | 64 "Remove bug reference overlays from region." |
| 65 (dolist (o (overlays-in start end)) | 65 (dolist (o (overlays-in start end)) |
| 66 (when (eq (overlay-get o 'category) 'bug-reference) | 66 (when (eq (overlay-get o 'category) 'bug-reference) |
| 67 (delete-overlay o)))) | 67 (delete-overlay o)))) |
| 68 | |
| 69 (defvar bug-reference-prog-mode) | |
| 68 | 70 |
| 69 (defun bug-reference-fontify (start end) | 71 (defun bug-reference-fontify (start end) |
| 70 "Apply bug reference overlays to region." | 72 "Apply bug reference overlays to region." |
| 71 (save-excursion | 73 (save-excursion |
| 72 (let ((beg-line (progn (goto-char start) (line-beginning-position))) | 74 (let ((beg-line (progn (goto-char start) (line-beginning-position))) |