[elpa] externals/relint fd43a5f 2/7: Permit relint-current-buffer in *scratch*

[Mattias Engdegård]

branch: externals/relint
commit fd43a5f0de6f22a2a126fcec3fd2632d11329638
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    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))