Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 14252:7ef2eabb1a9c
(update-file-autoloads): Only give "up to date" msg if (interactive-p).
(update-autoloads-from-directory): Call expand-file-name on arg.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sun, 21 Jan 1996 20:20:46 +0000 |
| parents | b1bc0f5d8cf3 |
| children | af6ef293cb42 |
comparison
equal
deleted
inserted
replaced
| 14251:9cacb2dd365c | 14252:7ef2eabb1a9c |
|---|---|
| 307 ;; We found the section for this file. | 307 ;; We found the section for this file. |
| 308 ;; Check if it is up to date. | 308 ;; Check if it is up to date. |
| 309 (let ((begin (match-beginning 0)) | 309 (let ((begin (match-beginning 0)) |
| 310 (last-time (nth 4 form)) | 310 (last-time (nth 4 form)) |
| 311 (file-time (nth 5 (file-attributes file)))) | 311 (file-time (nth 5 (file-attributes file)))) |
| 312 (message "%s: las %s vs %s" file last-time file-time) | |
| 313 (if (and (or (null existing-buffer) | 312 (if (and (or (null existing-buffer) |
| 314 (not (buffer-modified-p existing-buffer))) | 313 (not (buffer-modified-p existing-buffer))) |
| 315 (listp last-time) (= (length last-time) 2) | 314 (listp last-time) (= (length last-time) 2) |
| 316 (or (> (car last-time) (car file-time)) | 315 (or (> (car last-time) (car file-time)) |
| 317 (and (= (car last-time) (car file-time)) | 316 (and (= (car last-time) (car file-time)) |
| 318 (>= (nth 1 last-time) | 317 (>= (nth 1 last-time) |
| 319 (nth 1 file-time))))) | 318 (nth 1 file-time))))) |
| 320 (progn | 319 (progn |
| 321 (message "Autoload section for %s is up to date." | 320 (if (interactive-p) |
| 322 file) | 321 (message "\ |
| 322 Autoload section for %s is up to date." | |
| 323 file)) | |
| 323 (setq found 'up-to-date)) | 324 (setq found 'up-to-date)) |
| 324 (search-forward generate-autoload-section-trailer) | 325 (search-forward generate-autoload-section-trailer) |
| 325 (delete-region begin (point)) | 326 (delete-region begin (point)) |
| 326 (setq found t)))) | 327 (setq found t)))) |
| 327 ((string< load-name (nth 2 form)) | 328 ((string< load-name (nth 2 form)) |
| 373 (defun update-autoloads-from-directory (dir) | 374 (defun update-autoloads-from-directory (dir) |
| 374 "\ | 375 "\ |
| 375 Update loaddefs.el with all the current autoloads from DIR, and no old ones. | 376 Update loaddefs.el with all the current autoloads from DIR, and no old ones. |
| 376 This uses `update-file-autoloads' (which see) do its work." | 377 This uses `update-file-autoloads' (which see) do its work." |
| 377 (interactive "DUpdate autoloads from directory: ") | 378 (interactive "DUpdate autoloads from directory: ") |
| 379 (setq dir (expand-file-name dir)) | |
| 378 (let ((files (directory-files dir nil "^[^=].*\\.el$"))) | 380 (let ((files (directory-files dir nil "^[^=].*\\.el$"))) |
| 379 (save-excursion | 381 (save-excursion |
| 380 (set-buffer (find-file-noselect | 382 (set-buffer (find-file-noselect |
| 381 (if (file-exists-p generated-autoload-file) | 383 (if (file-exists-p generated-autoload-file) |
| 382 generated-autoload-file | 384 generated-autoload-file |