annotate lisp/minibuf-eldef.el @ 111413:d53ee71e7e89

Unify mouse-highlight code for all GUI and TTY sessions. term.c: Remove static mouse_face_* variables. All users changed. (term_show_mouse_face, term_clear_mouse_face) (fast_find_position, term_mouse_highlight): Functions deleted. (tty_draw_row_with_mouse_face): New function. (term_mouse_movement): Call note_mouse_highlight instead of term_mouse_highlight. nsterm.m (ns_update_window_begin, ns_update_window_end) (ns_update_end, x_destroy_window, ns_frame_up_to_date) (ns_dumpglyphs_box_or_relief, ns_maybe_dumpglyphs_background) (ns_dumpglyphs_image, ns_dumpglyphs_stretch) (ns_initialize_display_info, keyDown, mouseMoved, mouseExited): Replace Display_Info with Mouse_HLInfo everywhere where mouse_face_* members were accessed for mouse highlight purposes. xterm.c (x_update_window_begin, x_update_window_end) (x_update_end, XTframe_up_to_date, x_set_mouse_face_gc) (handle_one_xevent, x_free_frame_resources, x_term_init): Replace Display_Info with Mouse_HLInfo everywhere where mouse_face_* members were accessed for mouse highlight purposes. w32term.c (x_update_window_begin, x_update_window_end) (x_update_end, w32_read_socket, x_free_frame_resources) (w32_initialize_display_info): Replace Display_Info with Mouse_HLInfo everywhere where mouse_face_* members were accessed for mouse highlight purposes. xdisp.c (show_mouse_face, note_mode_line_or_margin_highlight) (note_mouse_highlight) [HAVE_WINDOW_SYSTEM]: Don't run GUI code unless the frame is on a window-system. (get_tool_bar_item, handle_tool_bar_click) (note_tool_bar_highlight, draw_glyphs, erase_phys_cursor) (show_mouse_face, clear_mouse_face, coords_in_mouse_face_p) (note_mode_line_or_margin_highlight, note_mouse_highlight) (x_clear_window_mouse_face, cancel_mouse_face, expose_frame): Replace Display_Info with Mouse_HLInfo everywhere where mouse_face_* members were accessed for mouse highlight purposes. (coords_in_mouse_face_p): Move prototype out of the HAVE_WINDOW_SYSTEM conditional. (x_y_to_hpos_vpos, frame_to_window_pixel_xy): Move out of the HAVE_WINDOW_SYSTEM block. (try_window_id) [HAVE_GPM || MSDOS]: Call x_clear_window_mouse_face. (draw_row_with_mouse_face): Implementation for HAVE_WINDOW_SYSTEM systems. Call tty_draw_row_with_mouse_face for TTY systems. (show_mouse_face): Call draw_row_with_mouse_face, instead of calling draw_glyphs directly. (show_mouse_face, clear_mouse_face, coords_in_mouse_face_p) (cursor_in_mouse_face_p, rows_from_pos_range) (mouse_face_from_buffer_pos, mouse_face_from_string_pos) (note_mode_line_or_margin_highlight, note_mouse_highlight) (x_clear_window_mouse_face, cancel_mouse_face): Move out of the HAVE_WINDOW_SYSTEM block. Ifdef away window-system specific fragments. (note_mouse_highlight): Call popup_activated for MSDOS as well. Clear mouse highlight if pointer is over glyphs whose OBJECT is an integer. (mouse_face_from_buffer_pos): Add parentheses around && within ||. (x_consider_frame_title, tool_bar_lines_needed): Move prototypes to HAVE_WINDOW_SYSTEM-only part. (get_window_cursor_type): Move inside a HAVE_WINDOW_SYSTEM-only part. Remove "#ifdef HAVE_WINDOW_SYSTEM" from body of function. (null_glyph_slice): Move declaration into HAVE_WINDOW_SYSTEM-only part. dispnew.c (mirror_make_current): Set Y coordinate of the mode-line and header-line rows. (init_display): Setup initial frame's output_data for text terminal frames. xmenu.c (popup_activated): Don't define on MSDOS, which now has its own definition on msdos.c. msdos.c (show_mouse_face, clear_mouse_face) (fast_find_position, IT_note_mode_line_highlight) (IT_note_mouse_highlight): Functions deleted. (IT_frame_up_to_date, dos_rawgetc): Call note_mouse_highlight instead of IT_note_mouse_highlight. (draw_row_with_mouse_face, popup_activated): New functions. (dos_set_window_size, draw_row_with_mouse_face, IT_update_begin) (IT_update_end, IT_frame_up_to_date, internal_terminal_init) (dos_rawgetc): Replace Display_Info with Mouse_HLInfo everywhere where mouse_face_* members were accessed for mouse highlight purposes. msdos.h (initialize_msdos_display): Add prototype. frame.h (MOUSE_HL_INFO): New macro. lisp.h (Mouse_HLInfo): New data type. xterm.h (struct x_display_info): w32term.h (struct w32_display_info): nsterm.h (struct ns_display_info): termchar.h (struct tty_display_info): Use it instead of mouse_face_* members. dispextern.h (show_mouse_face, clear_mouse_face): Update type of 1st argument. (frame_to_window_pixel_xy, note_mouse_highlight) (x_clear_window_mouse_face, cancel_mouse_face, clear_mouse_face) (show_mouse_face, cursor_in_mouse_face_p): Move prototypes out of HAVE_WINDOW_SYSTEM conditional. (draw_row_with_mouse_face): Declare prototype. (tty_draw_row_with_mouse_face): Declare prototype.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 06 Nov 2010 10:28:31 +0200
parents 1d1d5d9bd884
children 376148b31b5e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
1 ;;; minibuf-eldef.el --- Only show defaults in prompts when applicable
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
2 ;;
64762
41bb365f41c4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64091
diff changeset
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
5 ;;
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
6 ;; Author: Miles Bader <miles@gnu.org>
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
7 ;; Keywords: convenience
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
8
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
10
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79721
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79721
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79721
diff changeset
14 ;; (at your option) any later version.
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
15
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
20
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79721
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
23
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
25 ;;
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
26 ;; Defines the mode `minibuffer-electric-default-mode'.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
27 ;;
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
28 ;; When active, minibuffer prompts that show a default value only show
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
29 ;; the default when it's applicable -- that is, when hitting RET would
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
30 ;; yield the default value. If the user modifies the input such that
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
31 ;; hitting RET would enter a non-default value, the prompt is modified
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
32 ;; to remove the default indication (which is restored if the input is
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
33 ;; ever restore to the match the initial input).
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
34
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
35 ;;; Code:
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
36
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
37 (defvar minibuffer-default-in-prompt-regexps
55890
e046a551c6da Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-362
Miles Bader <miles@gnu.org>
parents: 52401
diff changeset
38 '(("\\( (default\\>.*)\\):? \\'" . 1) ("\\( \\[.*\\]\\):? *\\'" . 1))
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
39 "*A list of regexps matching the parts of minibuffer prompts showing defaults.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
40 When `minibuffer-electric-default-mode' is active, these regexps are
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
41 used to identify the portions of prompts to elide.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
42
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
43 Each entry is either a string, which should be a regexp matching the
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
44 default portion of the prompt, or a cons cell, who's car is a regexp
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
45 matching the default part of the prompt, and who's cdr indicates the
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
46 regexp subexpression that matched.")
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
47
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
48
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
49 ;;; Internal variables
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
50
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
51 ;; A list of minibuffers to which we've added a post-command-hook.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
52 (defvar minibuf-eldef-frobbed-minibufs nil)
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 41953
diff changeset
53
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
54 ;;; The following are all local variables in the minibuffer
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
55
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
56 ;; Input pre-inserted into the minibuffer before the user can edit it.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
57 (defvar minibuf-eldef-initial-input)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
58 (make-variable-buffer-local 'minibuf-eldef-initial-input)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
59 ;; and the length of the buffer with it inserted.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
60 (defvar minibuf-eldef-initial-buffer-length)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
61 (make-variable-buffer-local 'minibuf-eldef-initial-buffer-length)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
62
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
63 ;; True if the current minibuffer prompt contains the default spec.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
64 (defvar minibuf-eldef-showing-default-in-prompt)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
65 (make-variable-buffer-local 'minibuf-eldef-showing-default-in-prompt)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
66
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
67 ;; An overlay covering the default portion of the prompt
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
68 (defvar minibuf-eldef-overlay)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
69 (make-variable-buffer-local 'minibuf-eldef-overlay)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
70
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
71
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
72 ;;; Hook functions
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
73
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
74 ;; This function goes on minibuffer-setup-hook
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
75 (defun minibuf-eldef-setup-minibuffer ()
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
76 "Set up a minibuffer for `minibuffer-electric-default-mode'.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
77 The prompt and initial input should already have been inserted."
39596
fc100d4d02bc (minibuf-eldef-setup-minibuffer)
Miles Bader <miles@gnu.org>
parents: 34392
diff changeset
78 (let ((regexps minibuffer-default-in-prompt-regexps)
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
79 (match nil)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
80 (inhibit-point-motion-hooks t))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
81 (save-excursion
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
82 (save-restriction
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
83 ;; Narrow to only the prompt
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
84 (goto-char (point-min))
39596
fc100d4d02bc (minibuf-eldef-setup-minibuffer)
Miles Bader <miles@gnu.org>
parents: 34392
diff changeset
85 (narrow-to-region (point) (minibuffer-prompt-end))
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
86 ;; See the prompt contains a default input indicator
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
87 (while regexps
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
88 (setq match (pop regexps))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
89 (if (re-search-forward (if (stringp match) match (car match)) nil t)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
90 (setq regexps nil)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
91 (setq match nil)))))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
92 (if (not match)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
93 ;; Nope, so just make sure our post-command-hook isn't left around.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
94 (remove-hook 'post-command-hook #'minibuf-eldef-update-minibuffer t)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
95 ;; Yup; set things up so we can frob the prompt as the state of
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
96 ;; the input string changes.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
97 (setq match (if (consp match) (cdr match) 0))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
98 (setq minibuf-eldef-overlay
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
99 (make-overlay (match-beginning match) (match-end match)))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
100 (setq minibuf-eldef-showing-default-in-prompt t)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
101 (setq minibuf-eldef-initial-input
39596
fc100d4d02bc (minibuf-eldef-setup-minibuffer)
Miles Bader <miles@gnu.org>
parents: 34392
diff changeset
102 (minibuffer-contents-no-properties))
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
103 (setq minibuf-eldef-initial-buffer-length (point-max))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
104 (add-to-list 'minibuf-eldef-frobbed-minibufs (current-buffer))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
105 (add-hook 'post-command-hook #'minibuf-eldef-update-minibuffer nil t))))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
106
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
107 ;; post-command-hook to swap prompts when necessary
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
108 (defun minibuf-eldef-update-minibuffer ()
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
109 "Update a minibuffer's prompt to include a default only when applicable.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
110 This is intended to be used as a minibuffer post-command-hook for
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
111 `minibuffer-electric-default-mode'; the minibuffer should have already
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
112 been set up by `minibuf-eldef-setup-minibuffer'."
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
113 (unless (eq minibuf-eldef-showing-default-in-prompt
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
114 (and (= (point-max) minibuf-eldef-initial-buffer-length)
39596
fc100d4d02bc (minibuf-eldef-setup-minibuffer)
Miles Bader <miles@gnu.org>
parents: 34392
diff changeset
115 (string-equal (minibuffer-contents-no-properties)
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
116 minibuf-eldef-initial-input)))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
117 ;; swap state
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
118 (setq minibuf-eldef-showing-default-in-prompt
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
119 (not minibuf-eldef-showing-default-in-prompt))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
120 (cond (minibuf-eldef-showing-default-in-prompt
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
121 (overlay-put minibuf-eldef-overlay 'invisible nil)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
122 (overlay-put minibuf-eldef-overlay 'intangible nil))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
123 (t
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
124 (overlay-put minibuf-eldef-overlay 'invisible t)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
125 (overlay-put minibuf-eldef-overlay 'intangible t)))))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
126
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
127
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
128 ;;; Note this definition must be at the end of the file, because
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
129 ;;; `define-minor-mode' actually calls the mode-function if the
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
130 ;;; associated variable is non-nil, which requires that all needed
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
131 ;;; functions be already defined. [This is arguably a bug in d-m-m]
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
132 ;;;###autoload
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
133 (define-minor-mode minibuffer-electric-default-mode
41953
395d420d4f73 (minibuffer-electric-default-mode): Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents: 39596
diff changeset
134 "Toggle Minibuffer Electric Default mode.
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
135 When active, minibuffer prompts that show a default value only show the
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
136 default when it's applicable -- that is, when hitting RET would yield
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
137 the default value. If the user modifies the input such that hitting RET
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
138 would enter a non-default value, the prompt is modified to remove the
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
139 default indication.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
140
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
141 With prefix argument ARG, turn on if positive, otherwise off.
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
142 Returns non-nil if the new state is enabled."
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
143 :global t
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
144 :group 'minibuffer
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
145 (if minibuffer-electric-default-mode
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
146 ;; Enable the mode
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
147 (add-hook 'minibuffer-setup-hook 'minibuf-eldef-setup-minibuffer)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
148 ;; Disable the mode
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
149 (remove-hook 'minibuffer-setup-hook 'minibuf-eldef-setup-minibuffer)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
150 ;; Remove our entry from any post-command-hook variable's it's still in
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
151 (dolist (minibuf minibuf-eldef-frobbed-minibufs)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
152 (with-current-buffer minibuf
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
153 (remove-hook 'post-command-hook #'minibuf-eldef-update-minibuffer t)))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
154 (setq minibuf-eldef-frobbed-minibufs nil)))
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
155
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
156
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
157 (provide 'minibuf-eldef)
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
158
55890
e046a551c6da Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-362
Miles Bader <miles@gnu.org>
parents: 52401
diff changeset
159 ;; arch-tag: 7e421fae-c275-4729-b0da-7836af377d3d
34392
03fdc0082cc3 Initial checkin.
Miles Bader <miles@gnu.org>
parents:
diff changeset
160 ;;; minibuf-eldef.el ends here