Mercurial > emacs
comparison lisp/progmodes/ada-mode.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 | da8b3e61b182 |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 105371:0769a73f1d18 | 105372:bd2966850aac |
|---|---|
| 133 | 133 |
| 134 (defun ada-mode-version () | 134 (defun ada-mode-version () |
| 135 "Return Ada mode version." | 135 "Return Ada mode version." |
| 136 (interactive) | 136 (interactive) |
| 137 (let ((version-string "4.00")) | 137 (let ((version-string "4.00")) |
| 138 (if (interactive-p) | 138 (if (called-interactively-p 'interactive) |
| 139 (message version-string) | 139 (message version-string) |
| 140 version-string))) | 140 version-string))) |
| 141 | 141 |
| 142 (defvar ada-mode-hook nil | 142 (defvar ada-mode-hook nil |
| 143 "*List of functions to call when Ada mode is invoked. | 143 "*List of functions to call when Ada mode is invoked. |