(pop-up-frame-function): Remove choice nil since it
[emacs.git] / lisp / mb-depth.el
blobd8f681d6e4cf548e6c07c03e9eb699cf1c15bef6
1 ;;; mb-depth.el --- Indicate minibuffer-depth in prompt
2 ;;
3 ;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
4 ;;
5 ;; Author: Miles Bader <miles@gnu.org>
6 ;; Keywords: convenience
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23 ;;; Commentary:
25 ;; Defines the minor mode `minibuffer-depth-indicate-mode'.
27 ;; When active, any recursive use of the minibuffer will show
28 ;; the recursion depth in the minibuffer prompt. This is only
29 ;; useful if `enable-recursive-minibuffers' is non-nil.
31 ;;; Code:
33 (defvar minibuffer-depth-indicator-function nil
34 "If non-nil, function to set up the minibuffer depth indicator.
35 It is called with one argument, the minibuffer depth,
36 and must return a string.")
38 ;; An overlay covering the prompt. This is a buffer-local variable in
39 ;; each affected minibuffer.
41 (defvar minibuffer-depth-overlay)
42 (make-variable-buffer-local 'minibuffer-depth-overlay)
44 ;; This function goes on minibuffer-setup-hook
45 (defun minibuffer-depth-setup ()
46 "Set up a minibuffer for `minibuffer-depth-indicate-mode'.
47 The prompt should already have been inserted."
48 (when (> (minibuffer-depth) 1)
49 (setq minibuffer-depth-overlay (make-overlay (point-min) (1+ (point-min))))
50 (overlay-put minibuffer-depth-overlay 'before-string
51 (if minibuffer-depth-indicator-function
52 (funcall minibuffer-depth-indicator-function (minibuffer-depth))
53 (propertize (format "[%d]" (minibuffer-depth)) 'face 'highlight)))
54 (overlay-put minibuffer-depth-overlay 'evaporate t)))
56 ;;;###autoload
57 (define-minor-mode minibuffer-depth-indicate-mode
58 "Toggle Minibuffer Depth Indication mode.
59 When active, any recursive use of the minibuffer will show
60 the recursion depth in the minibuffer prompt. This is only
61 useful if `enable-recursive-minibuffers' is non-nil.
63 With prefix argument ARG, turn on if positive, otherwise off.
64 Returns non-nil if the new state is enabled."
65 :global t
66 :group 'minibuffer
67 (if minibuffer-depth-indicate-mode
68 ;; Enable the mode
69 (add-hook 'minibuffer-setup-hook 'minibuffer-depth-setup)
70 ;; Disable the mode
71 (remove-hook 'minibuffer-setup-hook 'minibuffer-depth-setup)))
73 (provide 'mb-depth)
75 ;; arch-tag: 50224089-5bf5-46f8-803d-18f018c5eacf
76 ;;; mb-depth.el ends here