mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/elint.el (elint-find-args-in-code):

Browse Source 
Use help-function-arglist, so as to handle lexical byte-code.
This commit is contained in:
Stefan Monnier 2012-07-17 08:30:48 -04:00
parent b7ffe0402b
commit ef501ef01c
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2012-07-17 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/elint.el (elint-find-args-in-code):
Use help-function-arglist, so as to handle lexical byte-code.
* progmodes/sh-script.el (sh-syntax-propertize-function): Fix last
change (bug#11826).

12
lisp/emacs-lisp/elint.el
View File

@ -46,6 +46,8 @@
;;; Code:
(require 'help-fns)
(defgroup elint nil
"Linting for Emacs Lisp."
:prefix "elint-"
@ -713,14 +715,8 @@ Returns `unknown' if we couldn't find arguments."
(defun elint-find-args-in-code (code)
"Extract the arguments from CODE.
CODE can be a lambda expression, a macro, or byte-compiled code."
(cond
((byte-code-function-p code)
(aref code 0))
((and (listp code) (eq (car code) 'lambda))
(car (cdr code)))
((and (listp code) (eq (car code) 'macro))
(elint-find-args-in-code (cdr code)))
(t 'unknown)))
(let ((args (help-function-arglist code)))
(if (listp args) args 'unknown)))
;;;
;;; Functions to check some special forms