Mercurial > emacs

diff lisp/net/eudc.el @ 105372:bd2966850aac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use `called-interactively-p' instead of `interactive-p'.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 02 Oct 2009 03:48:36 +0000
parents 45b5d5aae703
children 6b8dce5c4461
line wrap: on
line diff
--- a/lisp/net/eudc.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/net/eudc.el	Fri Oct 02 03:48:36 2009 +0000
@@ -706,7 +706,7 @@
   (setq eudc-server server)
   (eudc-update-local-variables)
   (run-hooks 'eudc-switch-to-server-hook)
-  (if (interactive-p)
+  (if (called-interactively-p 'interactive)
       (message "Current directory server is now %s (%s)" eudc-server eudc-protocol))
   (if (null no-save)
       (eudc-save-options)))
@@ -753,9 +753,10 @@
 otherwise a list of symbols is returned."
   (interactive)
   (if eudc-list-attributes-function
-      (let ((entries (funcall eudc-list-attributes-function (interactive-p))))
+      (let ((entries (funcall eudc-list-attributes-function
+			      (called-interactively-p 'interactive))))
 	(if entries
-	    (if (interactive-p)
+	    (if (called-interactively-p 'interactive)
 		(eudc-display-records entries t)
 	      entries)))
     (error "The %s protocol has no support for listing attributes" eudc-protocol)))