Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el Fri Oct 02 00:02:02 2009 +0000 +++ b/lisp/progmodes/ada-mode.el Fri Oct 02 03:48:36 2009 +0000 @@ -135,7 +135,7 @@ "Return Ada mode version." (interactive) (let ((version-string "4.00")) - (if (interactive-p) + (if (called-interactively-p 'interactive) (message version-string) version-string)))