Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 105372:bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 02 Oct 2009 03:48:36 +0000 |
| parents | f2e56d1eff32 |
| children | fe4228529c23 |
comparison
equal
deleted
inserted
replaced
| 105371:0769a73f1d18 | 105372:bd2966850aac |
|---|---|
| 503 (interactive "fUpdate autoloads for file: \np") | 503 (interactive "fUpdate autoloads for file: \np") |
| 504 (let* ((autoload-modified-buffers nil) | 504 (let* ((autoload-modified-buffers nil) |
| 505 (no-autoloads (autoload-generate-file-autoloads file))) | 505 (no-autoloads (autoload-generate-file-autoloads file))) |
| 506 (if autoload-modified-buffers | 506 (if autoload-modified-buffers |
| 507 (if save-after (autoload-save-buffers)) | 507 (if save-after (autoload-save-buffers)) |
| 508 (if (interactive-p) | 508 (if (called-interactively-p 'interactive) |
| 509 (message "Autoload section for %s is up to date." file))) | 509 (message "Autoload section for %s is up to date." file))) |
| 510 (if no-autoloads file))) | 510 (if no-autoloads file))) |
| 511 | 511 |
| 512 (defun autoload-find-destination (file) | 512 (defun autoload-find-destination (file) |
| 513 "Find the destination point of the current buffer's autoloads. | 513 "Find the destination point of the current buffer's autoloads. |