Browse files

Use 'called-interactively-p in place of 'interactive-p

This fixes a compilation warning, since the latter is obsolete. The
former is available since (at least) emacs 22.1.
  • Loading branch information...
purcell committed Aug 6, 2012
1 parent c5828f5 commit fece709e18e6ca0228c2e00cc23153af75a4a8f7
Showing with 2 additions and 1 deletion.
  1. +2 −1 clojure-mode.el
@@ -1137,7 +1137,8 @@ The arguments are dir, hostname, and port. The return value should be an `alist
(when (and (functionp 'slime-disconnect)
- (and (interactive-p) (y-or-n-p "Close old connections first? ")))
+ (and (called-interactively-p 'any)
+ (y-or-n-p "Close old connections first? ")))
(clojure-kill-swank-buffer swank-buffer-name))
(clojure-jack-in-start-process connection-name swank-buffer-name

0 comments on commit fece709

Please sign in to comment.