diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/elint.el | 13 |
2 files changed, 15 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 37b8d7f98eb..aa3ea918e58 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-11-14 Glenn Morris <rgm@gnu.org> + + * emacs-lisp/elint.el (elint-standard-variables): Doc fix. + 2009-11-14 Shigeru Fukaya <shigeru.fukaya@gmail.com> * emacs-lisp/elint.el (elint-standard-variables): Add some variables diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index ec408d2d45a..bcb399c23f3 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el @@ -118,13 +118,15 @@ are as follows, and suppress messages about the indicated features: ;;; Data ;;; -;; FIXME does this serve any useful purpose now elint-builtin-variables exists? (defconst elint-standard-variables + ;; Most of these are defined in C with no documentation. + ;; FIXME I don't see why they shouldn't just get doc-strings. '(vc-mode local-write-file-hooks activate-menubar-hook buffer-name-history coding-system-history extended-command-history kbd-macro-termination-hook read-expression-history yes-or-no-p-history) - "Standard buffer local variables, excluding `elint-builtin-variables'.") + "Standard variables, excluding `elint-builtin-variables'. +These are variables that we cannot detect automatically for some reason.") (defvar elint-builtin-variables nil "List of built-in variables. Set by `elint-initialize'. @@ -638,6 +640,13 @@ Returns the environment created by the form." (defun elint-unbound-variable (var env) "T if VAR is unbound in ENV." + ;; #1063 suggests adding (symbol-file var) here, but I don't think + ;; this is right, because it depends on what files you happen to have + ;; loaded at the time, which might not be the same when the code runs. + ;; It also suggests adding: + ;; (numberp (get var 'variable-documentation)) + ;; (numberp (cdr-safe (get var 'variable-documentation))) + ;; but this is not needed now elint-scan-doc-file exists. (not (or (memq var '(nil t)) (eq var elint-bound-variable) (elint-env-find-var env var) |