changeset 30527:876c0335dead

(iswitchb-entryfn-p): Test this-command instead of testing if iswitchb-prepost-hooks is bound, because the latter will always be true when invoking a recursive minibuffer from an active Iswitchb buffer.
author Gerd Moellmann <gerd@gnu.org>
date Sun, 30 Jul 2000 14:01:31 +0000
parents 96c739fe987e
children 01b106cfeb80
files lisp/iswitchb.el
diffstat 1 files changed, 15 insertions(+), 21 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/iswitchb.el	Sun Jul 30 13:27:46 2000 +0000
+++ b/lisp/iswitchb.el	Sun Jul 30 14:01:31 2000 +0000
@@ -1088,7 +1088,6 @@
 Copied from `icomplete-exhibit' with two changes:
 1. It prints a default buffer name when there is no text yet entered.
 2. It calls my completion routine rather than the standard completion."
-
   (if iswitchb-use-mycompletion
       (let ((contents (buffer-substring (minibuffer-prompt-end) (point-max)))
 	    (buffer-undo-list t))
@@ -1108,16 +1107,13 @@
 	  (iswitchb-set-common-completion)
 
 	  ;; Insert the match-status information:
-	  (insert-string
-	   (iswitchb-completions 
-	    contents
-	    minibuffer-completion-table
-	    minibuffer-completion-predicate
-	    (not minibuffer-completion-confirm)))
-	  ))))
+	  (insert-string (iswitchb-completions 
+			  contents
+			  minibuffer-completion-table
+			  minibuffer-completion-predicate
+			  (not minibuffer-completion-confirm)))))))
 
-(defun iswitchb-completions
-  (name candidates predicate require-match)
+(defun iswitchb-completions (name candidates predicate require-match)
   "Return the string that is displayed after the user's text.
 Modified from `icomplete-completions'."
   
@@ -1249,17 +1245,15 @@
     (setq iswitchb-eoinput 1)))
 
 (defun iswitchb-entryfn-p ()
-  "Return non-nil if `this-command' shows we are using `iswitchb-buffer'."
-  (or (boundp 'iswitchb-prepost-hooks)
-      ;; I think the of this may be redundant, since the prepost hooks
-      ;; will always be set in the iswitchb defuns.
-      ;;(and (symbolp this-command)		; ignore lambda functions
-      ;;(memq this-command
-      ;;	 '(iswitchb-buffer
-      ;;	   iswitchb-buffer-other-frame
-      ;;       iswitchb-display-buffer
-      ;;       iswitchb-buffer-other-window))))
-  ))
+  "Return non-nil if we are using `iswitchb-buffer'."
+  ;; Testing if `iswitchb-prepost-hooks' is bound does not work when
+  ;; we're invoking a recursive mini-buffer from an Iswitchb buffer.
+  ;; In this case, `iswitchb-prepost-hooks' is bound in the second
+  ;; mini-buffer, although it's not an Iswitchb buffer.
+  (memq this-command
+	'(iswitchb-buffer iswitchb-buffer-other-frame
+			  iswitchb-display-buffer
+			  iswitchb-buffer-other-window)))
 
 (defun iswitchb-summaries-to-end ()
   "Move the summaries to the end of the list.