From fef1f0f2a53aefd5c3e44fc48c02aabb891232ba Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Tue, 21 Nov 2006 20:06:53 +0000 Subject: (find-library-name): Don't strip ".el" from library name (reverts change of 2005-10-25). --- lisp/emacs-lisp/find-func.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 10a052dc97e..a51493d22ea 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -147,9 +147,9 @@ See the functions `find-function' and `find-variable'." (defun find-library-name (library) "Return the absolute file name of the Lisp source of LIBRARY." - ;; Strip off the extension to take advantage of library suffixes in - ;; the call to `locate-file'. - (if (string-match "\\.el\\(c\\(\\..*\\)?\\)?\\'" library) + ;; If the library is byte-compiled, try to find a source library by + ;; the same name. + (if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library) (setq library (replace-match "" t t library))) (or (locate-file library (or find-function-source-path load-path) -- cgit v1.2.3 From 7fb4fa10a82d1a44f69d9027a0304c4eee89db61 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 28 Nov 2006 02:22:17 +0000 Subject: (byte-compile-get-constant): Replace incorrect use of assoc-default with a loop. --- lisp/emacs-lisp/bytecomp.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 02a88c13973..0fa2da23721 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2864,8 +2864,12 @@ That command is designed for interactive use only" fn)) (defmacro byte-compile-get-constant (const) `(or (if (stringp ,const) - (assoc-default ,const byte-compile-constants - 'equal-including-properties nil) + ;; In a string constant, treat properties as significant. + (let (result) + (dolist (elt byte-compile-constants) + (if (equal-including-properties (car elt) ,const) + (setq result elt))) + result) (assq ,const byte-compile-constants)) (car (setq byte-compile-constants (cons (list ,const) byte-compile-constants))))) -- cgit v1.2.3 From 9dfa87262ef7ed26ccdc16746929502c19d1b373 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 28 Nov 2006 03:46:00 +0000 Subject: (authors-aliases): Add new alias. --- lisp/emacs-lisp/authors.el | 1 + 1 file changed, 1 insertion(+) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index 3862a0441f6..3c2d937624e 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el @@ -43,6 +43,7 @@ files.") (defconst authors-aliases '( ("Andrew Csillag" "Drew Csillag") + ("Anna M. Bigatti" "Anna Bigatti") ("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc." "Barry A. Warsaw, ITB" "Barry Warsaw") ("Bj,Av(Brn Torkelsson" "Bjorn Torkelsson") -- cgit v1.2.3 From 9e288f75215f25c18c1db4eb620f59ac3e5edf62 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 28 Nov 2006 19:22:31 +0000 Subject: (easy-mmode-define-navigation): Fix interactive spec of the functions getting defined to make them work as documented. --- lisp/emacs-lisp/easy-mmode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index b22e49dac34..de8f0a91af4 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -500,7 +500,7 @@ found, do widen first and then call NARROWFUN with no args after moving." ,(concat "^No \\(previous\\|next\\) " (regexp-quote name))) (defun ,next-sym (&optional count) ,(format "Go to the next COUNT'th %s." name) - (interactive) + (interactive "p") (unless count (setq count 1)) (if (< count 0) (,prev-sym (- count)) (if (looking-at ,re) (setq count (1+ count))) @@ -523,7 +523,7 @@ found, do widen first and then call NARROWFUN with no args after moving." (put ',next-sym 'definition-name ',base) (defun ,prev-sym (&optional count) ,(format "Go to the previous COUNT'th %s" (or name base-name)) - (interactive) + (interactive "p") (unless count (setq count 1)) (if (< count 0) (,next-sym (- count)) (let (was-narrowed) -- cgit v1.2.3 From 9bb2e9f86baec86ae8db1fec1c68a4d744c5faa9 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 30 Nov 2006 16:26:37 +0000 Subject: (byte-optimize, byte-compile-warnings): Doc fixes. --- lisp/emacs-lisp/bytecomp.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 0fa2da23721..6790f199206 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -264,11 +264,12 @@ facilities that have been added more recently." ;; this way can never be run in Emacs 18, and may even cause it to crash.") (defcustom byte-optimize t - "*Enables optimization in the byte compiler. -nil means don't do any optimization. -t means do all optimizations. -`source' means do source-level optimizations only. -`byte' means do code-level optimizations only." + "*Enable optimization in the byte compiler. +Possible values are: + nil - no optimization + t - all optimizations + `source' - source-level optimizations only + `byte' - code-level optimizations only" :group 'bytecomp :type '(choice (const :tag "none" nil) (const :tag "all" t) @@ -336,7 +337,7 @@ If it is 'byte, then only byte-level optimizations will be logged." (defcustom byte-compile-warnings t "*List of warnings that the byte-compiler should issue (t for all). -Elements of the list may be be: +Elements of the list may be: free-vars references to variables not in the current lexical scope. unresolved calls to unknown functions. -- cgit v1.2.3