Mercurial > hg > xemacs-beta

comparison lisp/utils/autoload.el @ 112:48d667d6f17f r20-1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b8
author cvs
date Mon, 13 Aug 2007 09:20:48 +0200
parents fe104dbd9147
children 1370575f1259
comparison
equal deleted inserted replaced
111:164ab62060bf 112:48d667d6f17f
342 (defun autoload-snarf-defcustom (file) 342 (defun autoload-snarf-defcustom (file)
343 "Snarf all customizations in the current buffer." 343 "Snarf all customizations in the current buffer."
344 (let ((visited (get-file-buffer file))) 344 (let ((visited (get-file-buffer file)))
345 (save-excursion 345 (save-excursion
346 (set-buffer (or visited (find-file-noselect file))) 346 (set-buffer (or visited (find-file-noselect file)))
347 (when (and file (string-match "\\`\\(.*\\)\\.el\\'" file)) 347 (when (and file
348 (string-match "\\`\\(.*\\)\\.el\\'" file)
349 (not (buffer-modified-p)))
348 (goto-char (point-min)) 350 (goto-char (point-min))
349 (condition-case nil 351 (condition-case nil
350 (let ((name (file-name-nondirectory (match-string 1 file)))) 352 (let ((name (file-name-nondirectory (match-string 1 file))))
351 (while t 353 (while t
352 (let ((expr (read (current-buffer)))) 354 (let ((expr (read (current-buffer))))