# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1284733866 -7200
# Node ID 2103fda7335569c7354ee81edcb169800a1bcbd1
# Parent  5be11972ce6ab513f57608b933d9ca893312085c
* lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar)
(byte-compile-defvar): "foo/bar" does not lack a prefix.

diff -r 5be11972ce6a -r 2103fda73355 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 17 16:22:06 2010 +0200
+++ b/lisp/ChangeLog	Fri Sep 17 16:31:06 2010 +0200
@@ -1,5 +1,8 @@
 2010-09-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* 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  <stephen.berman@gmx.net>
diff -r 5be11972ce6a -r 2103fda73355 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Fri Sep 17 16:22:06 2010 +0200
+++ b/lisp/emacs-lisp/bytecomp.el	Fri Sep 17 16:31:06 2010 +0200
@@ -2154,7 +2154,7 @@
       ;; 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 @@
 (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)))