From 3fe6ef4e36bf853b4b99c2520c9bf066023329e0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 17 Sep 2010 16:31:06 +0200 Subject: * lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar) (byte-compile-defvar): "foo/bar" does not lack a prefix. --- lisp/emacs-lisp/bytecomp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp/bytecomp.el') 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))) -- cgit v1.2.3