diff options
| author | Eli Zaretskii | 2014-06-03 12:50:04 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2014-06-03 12:50:04 +0300 |
| commit | 0016fa11a71bff9c8e70a98723cefc1582389dff (patch) | |
| tree | a90fecd4c9ad468261adec03abeca0aa535abb75 | |
| parent | a336b2eae3b52f6fba5a19cc98e780feca618115 (diff) | |
| download | emacs-0016fa11a71bff9c8e70a98723cefc1582389dff.tar.gz emacs-0016fa11a71bff9c8e70a98723cefc1582389dff.zip | |
Minor fix of the last commit in menu-bar-open.
lisp/menu-bar.el (menu-bar-open): Fix last change: use the PC
'(redisplay)' instead of '(sit-for 0)'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d73300523e9..2ca78add203 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-06-03 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * menu-bar.el (menu-bar-open): Fix last change: use the PC | ||
| 4 | 'redisplay' instead of '(sit-for 0)'. | ||
| 5 | |||
| 1 | 2014-06-03 Michael Albinus <michael.albinus@gmx.de> | 6 | 2014-06-03 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 7 | ||
| 3 | * net/tramp.el (tramp-ssh-controlmaster-options): Improve search | 8 | * net/tramp.el (tramp-ssh-controlmaster-options): Improve search |
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 8658a31cb58..19c8bdd4e24 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -2272,7 +2272,7 @@ If FRAME is nil or not given, use the selected frame." | |||
| 2272 | ;; via M-x, in which case the menu bar includes the "Minibuf" | 2272 | ;; via M-x, in which case the menu bar includes the "Minibuf" |
| 2273 | ;; menu item that should be removed when we exit the minibuffer. | 2273 | ;; menu item that should be removed when we exit the minibuffer. |
| 2274 | (force-mode-line-update) | 2274 | (force-mode-line-update) |
| 2275 | (sit-for 0) | 2275 | (redisplay) |
| 2276 | (let* ((x tty-menu--initial-menu-x) | 2276 | (let* ((x tty-menu--initial-menu-x) |
| 2277 | (menu (menu-bar-menu-at-x-y x 0 frame))) | 2277 | (menu (menu-bar-menu-at-x-y x 0 frame))) |
| 2278 | (popup-menu (or | 2278 | (popup-menu (or |