diff options
author | Stefan Monnier <[email protected]> | 2010-09-17 16:31:06 +0200 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2010-09-17 16:31:06 +0200 |
commit | 3fe6ef4e36bf853b4b99c2520c9bf066023329e0 (patch) | |
tree | d8b677b1b631569be73fafb7d34ff0657ea3f981 | |
parent | 63556fc6fa4abc8307551d1738d4cc9be5a65d94 (diff) |
* lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar)
(byte-compile-defvar): "foo/bar" does not lack a prefix.
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e1aeae2e17..8ced74de42 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-17 Stefan Monnier <[email protected]> + * emacs-lisp/bytecomp.el (byte-compile-file-form-defvar) + (byte-compile-defvar): "foo/bar" does not lack a prefix. + * subr.el (y-or-n-p): Add the "(y or n)" that was lost somehow. 2010-09-17 Stephen Berman <[email protected]> diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index cf12847d09..aca3a54d14 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2154,7 +2154,7 @@ list that represents a doc string reference. ;; and not do a file-boundary. (byte-compile-keep-pending form) (when (and (symbolp (nth 1 form)) - (not (string-match "[-*:$]" (symbol-name (nth 1 form)))) + (not (string-match "[-*/:$]" (symbol-name (nth 1 form)))) (byte-compile-warning-enabled-p 'lexical)) (byte-compile-warn "Global/dynamic var `%s' lacks a prefix" (nth 1 form))) @@ -3810,7 +3810,7 @@ that suppresses all warnings during execution of BODY." (defun byte-compile-defvar (form) ;; This is not used for file-level defvar/consts with doc strings. (when (and (symbolp (nth 1 form)) - (not (string-match "[-*:$]" (symbol-name (nth 1 form)))) + (not (string-match "[-*/:$]" (symbol-name (nth 1 form)))) (byte-compile-warning-enabled-p 'lexical)) (byte-compile-warn "Global/dynamic var `%s' lacks a prefix" (nth 1 form))) |