Mercurial > emacs
diff lisp/mb-depth.el @ 83635:9c01792a3ce8
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 793-802)
- Update from CVS
- Remove RCS keywords
- Merge from emacs--rel--22
* emacs--rel--22 (patch 42-50)
- Update from CVS
- Merge from gnus--rel--5.10
- Gnus ChangeLog tweaks
* gnus--rel--5.10 (patch 229-232)
- Merge from emacs--devo--0, emacs--rel--22
- ChangeLog tweak
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-23
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 16 Jun 2007 22:33:42 +0000 |
parents | cf1f1c774776 |
children | baed8c5b63a7 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/mb-depth.el Sat Jun 16 22:33:42 2007 +0000 @@ -0,0 +1,72 @@ +;;; mb-depth.el --- Indicate minibuffer-depth in prompt +;; +;; Copyright (C) 2006, 2007 Free Software Foundation, Inc. +;; +;; Author: Miles Bader <miles@gnu.org> +;; Keywords: convenience + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: +;; +;; Defines the minor mode `minibuffer-indicate-depth-mode'. +;; +;; When active, any recursive use of the minibuffer will show +;; the recursion depth in the minibuffer prompt. This is only +;; useful if `enable-recursive-minibuffers' is non-nil. + +;;; Code: + +;; An overlay covering the prompt. This is a buffer-local variable in +;; each affected minibuffer. +;; +(defvar minibuf-depth-overlay) +(make-variable-buffer-local 'minibuf-depth-overlay) + +;; This function goes on minibuffer-setup-hook +(defun minibuf-depth-setup-minibuffer () + "Set up a minibuffer for `minibuffer-indicate-depth-mode'. +The prompt should already have been inserted." + (when (> (minibuffer-depth) 1) + (setq minibuf-depth-overlay (make-overlay (point-min) (1+ (point-min)))) + (overlay-put minibuf-depth-overlay 'before-string + (propertize (format "[%d]" (minibuffer-depth)) + 'face 'highlight)) + (overlay-put minibuf-depth-overlay 'evaporate t))) + +;;;###autoload +(define-minor-mode minibuffer-indicate-depth-mode + "Toggle Minibuffer Indicate Depth mode. +When active, any recursive use of the minibuffer will show +the recursion depth in the minibuffer prompt. This is only +useful if `enable-recursive-minibuffers' is non-nil. + +With prefix argument ARG, turn on if positive, otherwise off. +Returns non-nil if the new state is enabled." + :global t + :group 'minibuffer + (if minibuffer-indicate-depth-mode + ;; Enable the mode + (add-hook 'minibuffer-setup-hook 'minibuf-depth-setup-minibuffer) + ;; Disable the mode + (remove-hook 'minibuffer-setup-hook 'minibuf-depth-setup-minibuffer))) + +(provide 'mb-depth) + +;; arch-tag: 50224089-5bf5-46f8-803d-18f018c5eacf +;;; mb-depth.el ends here