Mercurial > hg > xemacs-beta

comparison lisp/utils/autoload.el @ 34:d620409f5eb8 r19-15b100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b100
author cvs
date Mon, 13 Aug 2007 08:53:20 +0200
parents e04119814345
children 131b0175ea99
comparison
equal deleted inserted replaced
33:9ee3cade837d 34:d620409f5eb8
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))))