diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-09-17 16:31:06 +0200 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-09-17 16:31:06 +0200 |
| commit | 3fe6ef4e36bf853b4b99c2520c9bf066023329e0 (patch) | |
| tree | d8b677b1b631569be73fafb7d34ff0657ea3f981 /lisp/emacs-lisp/bytecomp.el | |
| parent | 63556fc6fa4abc8307551d1738d4cc9be5a65d94 (diff) | |
| download | emacs-3fe6ef4e36bf853b4b99c2520c9bf066023329e0.tar.gz emacs-3fe6ef4e36bf853b4b99c2520c9bf066023329e0.tar.bz2 emacs-3fe6ef4e36bf853b4b99c2520c9bf066023329e0.zip | |
* lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar)
(byte-compile-defvar): "foo/bar" does not lack a prefix.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index cf12847d093..aca3a54d14f 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))) |