comparison lisp/iswitchb.el @ 33818:42ed3c6a1d89

(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.

33817:c0bef67fde0c

(defvar iswitchb-temp-buflist nil
  "Stores a temporary version of the buffer list being created.")

(defvar iswitchb-bufs-in-frame nil
  "List of the buffers visible in the current frame.")

;;; FUNCTIONS

;;; ISWITCHB KEYMAP
(defun iswitchb-define-mode-map ()

    (iswitchb-make-buflist iswitchb-default)
    (iswitchb-set-matches)
    (let
	((minibuffer-local-completion-map iswitchb-mode-map)
	 (iswitchb-prepost-hooks t)
	 (iswitchb-require-match require-match))
      ;; prompt the user for the buffer name
      (setq iswitchb-final-text (completing-read
				 prompt	;the prompt
				 '(("dummy" . 1)) ;table

    (make-local-variable 'iswitchb-eoinput)
    (setq iswitchb-eoinput 1)))

(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)))

(defun iswitchb-summaries-to-end ()
  "Move the summaries to the end of the list.
This is an example function which can be hooked on to
`iswitchb-make-buflist-hook'.  Any buffer matching the regexps

33818:42ed3c6a1d89

(defvar iswitchb-temp-buflist nil
  "Stores a temporary version of the buffer list being created.")

(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
(defun iswitchb-define-mode-map ()

    (iswitchb-make-buflist iswitchb-default)
    (iswitchb-set-matches)
    (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
				 prompt	;the prompt
				 '(("dummy" . 1)) ;table

    (make-local-variable 'iswitchb-eoinput)
    (setq iswitchb-eoinput 1)))

(defun iswitchb-entryfn-p ()
  "Return non-nil if we are using `iswitchb-buffer'."
  (eq iswitchb-minibuf-depth (minibuffer-depth)))

(defun iswitchb-summaries-to-end ()
  "Move the summaries to the end of the list.
This is an example function which can be hooked on to
`iswitchb-make-buflist-hook'.  Any buffer matching the regexps