Also, execute command specified if in Minibuffer."
(interactive)
(setq edt-direction-string edt-forward-string)
- (edt-update-mode-line)
+ (force-mode-line-update)
(if (string-equal " *Minibuf"
(substring (buffer-name) 0 (min (length (buffer-name)) 9)))
(exit-minibuffer)))
Also, execute command specified if in Minibuffer."
(interactive)
(setq edt-direction-string edt-backward-string)
- (edt-update-mode-line)
+ (force-mode-line-update)
(if (string-equal " *Minibuf"
(substring (buffer-name) 0 (min (length (buffer-name)) 9)))
(exit-minibuffer)))
(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
;;;