Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
177aecf9
Commit
177aecf9
authored
Apr 08, 1994
by
Karl Heuer
Browse files
(Vminibuffer_exit_hook): New variable.
(read_minibuf): Run hook when exiting minibuffer.
parent
dedd1182
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
1 deletion
+13
-1
src/minibuf.c
src/minibuf.c
+13
-1
No files found.
src/minibuf.c
View file @
177aecf9
...
...
@@ -79,9 +79,10 @@ Lisp_Object Qminibuffer_history;
Lisp_Object
Qread_file_name_internal
;
/* Normal hook for entry to minibuffer. */
/* Normal hook
s
for entry to
and exit from
minibuffer. */
Lisp_Object
Qminibuffer_setup_hook
,
Vminibuffer_setup_hook
;
Lisp_Object
Qminibuffer_exit_hook
,
Vminibuffer_exit_hook
;
/* Nonzero means completion ignores case. */
...
...
@@ -266,6 +267,10 @@ read_minibuf (map, initial, prompt, backup_n, expflag, histvar, histpos)
/* ??? MCC did redraw_screen here if switching screens. */
recursive_edit_1
();
if
(
!
NILP
(
Vminibuffer_exit_hook
)
&&
!
EQ
(
Vminibuffer_exit_hook
,
Qunbound
)
&&
!
NILP
(
Vrun_hooks
))
call1
(
Vrun_hooks
,
Qminibuffer_exit_hook
);
/* If cursor is on the minibuffer line,
show the user we have exited by putting it in column 0. */
if
((
FRAME_CURSOR_Y
(
selected_frame
)
...
...
@@ -1589,10 +1594,17 @@ syms_of_minibuf ()
Qminibuffer_setup_hook
=
intern
(
"minibuffer-setup-hook"
);
staticpro
(
&
Qminibuffer_setup_hook
);
Qminibuffer_exit_hook
=
intern
(
"minibuffer-exit-hook"
);
staticpro
(
&
Qminibuffer_exit_hook
);
DEFVAR_LISP
(
"minibuffer-setup-hook"
,
&
Vminibuffer_setup_hook
,
"Normal hook run just after entry to minibuffer."
);
Vminibuffer_setup_hook
=
Qnil
;
DEFVAR_LISP
(
"minibuffer-exit-hook"
,
&
Vminibuffer_exit_hook
,
"Normal hook run just after exit from minibuffer."
);
Vminibuffer_exit_hook
=
Qnil
;
DEFVAR_BOOL
(
"completion-auto-help"
,
&
auto_help
,
"*Non-nil means automatically provide help for invalid completion input."
);
auto_help
=
1
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment