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
ca341104
Commit
ca341104
authored
Apr 25, 1995
by
Karl Heuer
Browse files
(edt-advance, edt-backup): Use force-mode-line-update.
parent
74def44f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
11 deletions
+2
-11
lisp/emulation/edt.el
lisp/emulation/edt.el
+2
-11
No files found.
lisp/emulation/edt.el
View file @
ca341104
...
...
@@ -656,7 +656,7 @@ Accepts a positive prefix argument for the number of characters to delete."
Also, execute command specified if in Minibuffer."
(
interactive
)
(
setq
edt-direction-string
edt-forward-string
)
(
edt-updat
e-mode-line
)
(
forc
e-mode-line
-update
)
(
if
(
string-equal
" *Minibuf"
(
substring
(
buffer-name
)
0
(
min
(
length
(
buffer-name
))
9
)))
(
exit-minibuffer
)))
...
...
@@ -670,7 +670,7 @@ Also, execute command specified if in Minibuffer."
Also, execute command specified if in Minibuffer."
(
interactive
)
(
setq
edt-direction-string
edt-backward-string
)
(
edt-updat
e-mode-line
)
(
forc
e-mode-line
-update
)
(
if
(
string-equal
" *Minibuf"
(
substring
(
buffer-name
)
0
(
min
(
length
(
buffer-name
))
9
)))
(
exit-minibuffer
)))
...
...
@@ -1252,15 +1252,6 @@ Accepts a positive prefix argument for the number times to duplicate the line."
(
split-window
)
(
other-window
1
))
;;;
;;; UPDATE MODE LINE
;;;
(
defun
edt-update-mode-line
()
"Make sure mode-line in the current buffer reflects all changes."
(
set-buffer-modified-p
(
buffer-modified-p
))
(
sit-for
0
))
;;;
;;; COPY RECTANGLE
;;;
...
...
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