# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 974996622 0
# Node ID 42ed3c6a1d89e2ce00f2c69a3243f1e801c27868
# Parent  c0bef67fde0c5d34076cfceb58905c547be18ff3
(iswitchb-minibuf-depth): New variable.
(iswitchb-read-buffer): Record in iswitchb-minibuf-depth the value
we expect to be returned by minibuffer-depth once we prompt the
user in the minibuffer.
(iswitchb-entryfn-p): If minibuffer-depth returns the same value
as recorded in iswitchb-minibuf-depth, return non-nil.

diff -r c0bef67fde0c -r 42ed3c6a1d89 lisp/iswitchb.el
--- a/lisp/iswitchb.el	Thu Nov 23 16:13:21 2000 +0000
+++ b/lisp/iswitchb.el	Thu Nov 23 16:23:42 2000 +0000
@@ -459,6 +459,9 @@
 (defvar iswitchb-bufs-in-frame nil
   "List of the buffers visible in the current frame.")
 
+(defvar iswitchb-minibuf-depth nil
+  "Value we expect to be returned by `minibuffer-depth' in the minibuffer.")
+
 ;;; FUNCTIONS
 
 ;;; ISWITCHB KEYMAP
@@ -571,6 +574,9 @@
     (let
 	((minibuffer-local-completion-map iswitchb-mode-map)
 	 (iswitchb-prepost-hooks t)
+	 ;; Record the minibuffer depth that we expect to find once
+	 ;; the minibuffer is set up and iswitchb-entryfn-p is called.
+	 (iswitchb-minibuf-depth (1+ (minibuffer-depth)))
 	 (iswitchb-require-match require-match))
       ;; prompt the user for the buffer name
       (setq iswitchb-final-text (completing-read
@@ -1292,14 +1298,7 @@
 
 (defun iswitchb-entryfn-p ()
   "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)))
+  (eq iswitchb-minibuf-depth (minibuffer-depth)))
 
 (defun iswitchb-summaries-to-end ()
   "Move the summaries to the end of the list.