[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8fd527e: * lisp/emacs-lisp/cl|eieio: Minor tweaks
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 8fd527e: * lisp/emacs-lisp/cl|eieio: Minor tweaks |
Date: |
Thu, 26 Mar 2015 17:33:17 +0000 |
branch: master
commit 8fd527eb00a0ec1d8d7cf916204c3be3e79e27da
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/cl|eieio: Minor tweaks
* lisp/emacs-lisp/cl-macs.el (cl-dolist, cl-dotimes): Silence byte-compiler.
* lisp/emacs-lisp/eieio.el (defclass): Change internal name so as to make
sure only EIEIO files should have "eieio--" prefixes in their .elc.
---
lisp/ChangeLog | 7 +++++++
lisp/emacs-lisp/cl-macs.el | 4 ++--
lisp/emacs-lisp/eieio.el | 2 +-
3 files changed, 10 insertions(+), 3 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 37ac1c5..294bcfe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2015-03-26 Stefan Monnier <address@hidden>
+
+ * emacs-lisp/eieio.el (defclass): Change internal name so as to make
+ sure only EIEIO files should have "eieio--" prefixes in their .elc.
+
+ * emacs-lisp/cl-macs.el (cl-dolist, cl-dotimes): Silence byte-compiler.
+
2015-03-26 Boruch Baum <address@hidden> (tiny change)
* bookmark.el (bookmark-show-all-annotations): Sort them (bug#20177).
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 5d55a1d..f8ddc00 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1752,7 +1752,7 @@ An implicit nil block is established around the loop.
(declare (debug ((symbolp form &optional form) cl-declarations body))
(indent 1))
(let ((loop `(dolist ,spec ,@body)))
- (if (advice-member-p #'cl--wrap-in-nil-block 'dolist)
+ (if (advice-member-p 'cl--wrap-in-nil-block 'dolist)
loop `(cl-block nil ,loop))))
;;;###autoload
@@ -1765,7 +1765,7 @@ nil.
\(fn (VAR COUNT [RESULT]) BODY...)"
(declare (debug cl-dolist) (indent 1))
(let ((loop `(dotimes ,spec ,@body)))
- (if (advice-member-p #'cl--wrap-in-nil-block 'dotimes)
+ (if (advice-member-p 'cl--wrap-in-nil-block 'dotimes)
loop `(cl-block nil ,loop))))
(defvar cl--tagbody-alist nil)
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 2772514..bca53c0 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -130,7 +130,7 @@ and reference them using the function `class-option'."
(error "Method invocation order %s is not allowed" io)))
(let ((testsym1 (intern (concat (symbol-name name) "-p")))
- (testsym2 (intern (format "eieio--childp--%s" name)))
+ (testsym2 (intern (format "%s--eieio-childp" name)))
(accessors ()))
;; Collect the accessors we need to define.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8fd527e: * lisp/emacs-lisp/cl|eieio: Minor tweaks,
Stefan Monnier <=