diff options
| author | Gerd Moellmann | 2000-12-23 15:42:36 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-12-23 15:42:36 +0000 |
| commit | e751216899474a0c4540aacbf137afed3ed68e56 (patch) | |
| tree | e066ad2cf1cd0fd2a022f1e8f0e09db03d0d6b54 | |
| parent | 504454e82487c7a50db87edfb67461701a4e4b65 (diff) | |
| download | emacs-e751216899474a0c4540aacbf137afed3ed68e56.tar.gz emacs-e751216899474a0c4540aacbf137afed3ed68e56.zip | |
(compilation-forget-errors): Fix indentation.
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index cf46b2d661c..2f33166e1f4 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1706,7 +1706,7 @@ Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." | |||
| 1706 | ;; error messages and their text, so that they no longer slow down gap motion. | 1706 | ;; error messages and their text, so that they no longer slow down gap motion. |
| 1707 | ;; This would happen anyway at the next garbage collection, but it is better to | 1707 | ;; This would happen anyway at the next garbage collection, but it is better to |
| 1708 | ;; do it right away. | 1708 | ;; do it right away. |
| 1709 | (defun compilation-forget-errors () | 1709 | (defun compilation-forget-errors () |
| 1710 | (while compilation-old-error-list | 1710 | (while compilation-old-error-list |
| 1711 | (let ((next-error (car compilation-old-error-list))) | 1711 | (let ((next-error (car compilation-old-error-list))) |
| 1712 | (set-marker (car next-error) nil) | 1712 | (set-marker (car next-error) nil) |
| @@ -1720,8 +1720,7 @@ Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." | |||
| 1720 | (let ((inhibit-read-only t) | 1720 | (let ((inhibit-read-only t) |
| 1721 | (buffer-undo-list t) | 1721 | (buffer-undo-list t) |
| 1722 | deactivate-mark) | 1722 | deactivate-mark) |
| 1723 | (remove-text-properties (point-min) (point-max) '(mouse-face highlight))) | 1723 | (remove-text-properties (point-min) (point-max) '(mouse-face highlight)))) |
| 1724 | ) | ||
| 1725 | 1724 | ||
| 1726 | 1725 | ||
| 1727 | ;; This function is not needed any more by compilation mode. | 1726 | ;; This function is not needed any more by compilation mode. |