From 3fe6ef4e36bf853b4b99c2520c9bf066023329e0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 17 Sep 2010 16:31:06 +0200 Subject: [PATCH] * lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar) (byte-compile-defvar): "foo/bar" does not lack a prefix. --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/bytecomp.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e1aeae2e17a..8ced74de42a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-17 Stefan Monnier + * 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 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))) -- 2.39.2