comparison lisp/utils/autoload.el @ 193:f53b5ca2e663 r20-3b23

Import from CVS: tag r20-3b23
author cvs
date Mon, 13 Aug 2007 09:58:30 +0200
parents 489f57a838ef
children a2f645c6b9f8
comparison
equal deleted inserted replaced
192:9d35321dd38c 193:f53b5ca2e663
578 (update-autoloads-from-directory arg)) 578 (update-autoloads-from-directory arg))
579 ((file-exists-p arg) 579 ((file-exists-p arg)
580 (update-file-autoloads arg)) 580 (update-file-autoloads arg))
581 (t (error "No such file or directory: %s" arg)))) 581 (t (error "No such file or directory: %s" arg))))
582 (when autoload-do-custom-save 582 (when autoload-do-custom-save
583 (autoload-save-customization)) 583 (autoload-save-customization)
584 (fixup-autoload-buffer (concat (file-name-nondirectory defdir) 584 (clrhash customized-symbols))
585 (fixup-autoload-buffer (concat (if autoload-package-name
586 autoload-package-name
587 (file-name-nondirectory defdir))
585 "-autoloads")) 588 "-autoloads"))
586 (save-some-buffers t) 589 (save-some-buffers t)
587 ;; (message "Done") 590 ;; (message "Done")
588 (kill-emacs 0))) 591 (kill-emacs 0)))
589 592