Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit fece709e18e6ca0228c2e00cc23153af75a4a8f7 1 parent c5828f5
@purcell purcell authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  clojure-mode.el
3  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
Please sign in to comment.
Something went wrong with that request. Please try again.