diff options
| author | Markus Rost | 2002-11-07 16:52:04 +0000 |
|---|---|---|
| committer | Markus Rost | 2002-11-07 16:52:04 +0000 |
| commit | b127be31b1d209dc739a0c1c9d4f8d46fbabed77 (patch) | |
| tree | 311dcc09ded1d7a4b0379a3539e01280ca791f3c | |
| parent | 7a698dc1c55d52fda462485e9a44ae6b0807a05d (diff) | |
| download | emacs-b127be31b1d209dc739a0c1c9d4f8d46fbabed77.tar.gz emacs-b127be31b1d209dc739a0c1c9d4f8d46fbabed77.zip | |
(checkdoc-find-error): Use get-file-buffer instead of get-buffer.
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 3720984196c..334a7995bcf 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el | |||
| @@ -2586,9 +2586,9 @@ This function will not modify `match-data'." | |||
| 2586 | (if (looking-at "\\(\\(\\w+\\|\\s_\\)+\\.el\\):\\([0-9]+\\):") | 2586 | (if (looking-at "\\(\\(\\w+\\|\\s_\\)+\\.el\\):\\([0-9]+\\):") |
| 2587 | (let ((l (string-to-int (match-string 3))) | 2587 | (let ((l (string-to-int (match-string 3))) |
| 2588 | (f (match-string 1))) | 2588 | (f (match-string 1))) |
| 2589 | (if (not (get-buffer f)) | 2589 | (if (not (get-file-buffer f)) |
| 2590 | (error "Can't find buffer %s" f)) | 2590 | (error "Can't find buffer %s" f)) |
| 2591 | (switch-to-buffer-other-window (get-buffer f)) | 2591 | (switch-to-buffer-other-window (get-file-buffer f)) |
| 2592 | (goto-line l)))) | 2592 | (goto-line l)))) |
| 2593 | 2593 | ||
| 2594 | (defun checkdoc-buffer-label () | 2594 | (defun checkdoc-buffer-label () |