[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101461: * lisp/emacs-lisp/bytecomp.e
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101461: * lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar) |
Date: |
Fri, 17 Sep 2010 16:31:06 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101461
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2010-09-17 16:31:06 +0200
message:
* lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar)
(byte-compile-defvar): "foo/bar" does not lack a prefix.
modified:
lisp/ChangeLog
lisp/emacs-lisp/bytecomp.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-09-17 13:30:30 +0000
+++ b/lisp/ChangeLog 2010-09-17 14:31:06 +0000
@@ -1,5 +1,8 @@
2010-09-17 Stefan Monnier <address@hidden>
+ * 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 <address@hidden>
=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el 2010-09-15 15:30:43 +0000
+++ b/lisp/emacs-lisp/bytecomp.el 2010-09-17 14:31:06 +0000
@@ -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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101461: * lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar),
Stefan Monnier <=