branch: externals/relint
commit fd43a5f0de6f22a2a126fcec3fd2632d11329638
Author: Mattias Engdegård <matti...@acm.org>
Commit: Mattias Engdegård <matti...@acm.org>
Permit relint-current-buffer in *scratch*
Allow any buffer whose major mode is derived from emacs-lisp-mode;
this includes lisp-interaction-mode. Suggested by Steve Purcell.
---
relint.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/relint.el b/relint.el
index b23e219..1575b73 100644
--- a/relint.el
+++ b/relint.el
@@ -1862,10 +1862,10 @@ Return a list of (FORM . STARTING-POSITION)."
(defun relint--scan-buffer (buffer error-buffer quiet)
"Scan BUFFER for regexp errors.
Diagnostics to ERROR-BUFFER. If QUIET, don't emit messages."
- (unless (eq (buffer-local-value 'major-mode buffer) 'emacs-lisp-mode)
- (error "Relint: can only scan elisp code (use emacs-lisp-mode)"))
- (relint--init buffer default-directory error-buffer quiet)
(with-current-buffer buffer
+ (unless (derived-mode-p 'emacs-lisp-mode)
+ (error "Relint: can only scan elisp code (use emacs-lisp-mode)"))
+ (relint--init buffer default-directory error-buffer quiet)
(save-excursion
(relint--scan-current-buffer (buffer-name))))
(relint--finish))
