mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-34

Browse source 
Merge from emacs--devo--0

Patches applied:

 * emacs--devo--0  (patch 123-134)

   - Update from CVS
   - Merge from gnus--rel--5.10

 * gnus--rel--5.10  (patch 40-48)

   - Merge from emacs--devo--0
   - Update from CVS
   - Munge arch explicit ids in etc/images to match Emacs
This commit is contained in:
Miles Bader 2006-03-03 07:48:46 +00:00
commit d2ad6275c8
65 changed files with 2238 additions and 787 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/autoload.el
View file

@ -512,7 +512,7 @@ The function does NOT recursively descend into subdirectories of the
directory or directories specified."
(interactive "DUpdate autoloads from directory: ")
(let* ((files-re (let ((tmp nil))
(dolist (suf load-suffixes
(dolist (suf (get-load-suffixes)
(concat "^[^=.].*" (regexp-opt tmp t) "\\'"))
(unless (string-match "\\.elc" suf) (push suf tmp)))))
(files (apply 'nconc

4
lisp/emacs-lisp/find-func.el
View file

@ -142,7 +142,7 @@ See the functions `find-function' and `find-variable'."
(defun find-library-suffixes ()
(let ((suffixes nil))
(dolist (suffix load-suffixes (nreverse suffixes))
(dolist (suffix (get-load-suffixes) (nreverse suffixes))
(unless (string-match "elc" suffix) (push suffix suffixes)))))
(defun find-library-name (library)
@ -153,7 +153,7 @@ See the functions `find-function' and `find-variable'."
(setq library (replace-match "" t t library)))
(or (locate-file library
(or find-function-source-path load-path)
(append (find-library-suffixes) '("")))
(append (find-library-suffixes) load-file-rep-suffixes))
(error "Can't find library %s" library)))
(defvar find-function-C-source-directory