diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-05 21:20:03 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-05 21:20:03 +0100 |
| commit | 6980a4fa450260b97830de52a69b039d9d020ff2 (patch) | |
| tree | 1393bab1d3957e285bc848935d5204ab820f7ec9 /lisp/mouse.el | |
| parent | 6faf72eab634fcb11b5a79128bf409e4a4ddaf0f (diff) | |
| download | emacs-6980a4fa450260b97830de52a69b039d9d020ff2.tar.gz emacs-6980a4fa450260b97830de52a69b039d9d020ff2.tar.bz2 emacs-6980a4fa450260b97830de52a69b039d9d020ff2.zip | |
Fix regression introduced by previous context-menu-map change
* lisp/mouse.el (context-menu-map): Make the context mode work
with flyspell again (bug#52237).
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index b5ca80a446e..af1eca12f45 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -330,7 +330,8 @@ the function `context-menu-filter-function'." ;; Remove duplicate separators as well as ones at the beginning or ;; end of the menu. (let ((l menu) saw-first-item) - (while (consp (cdr l)) + (while (and (consp l) + (consp (cdr l))) ;; If the next item is a separator, remove it if 1) we haven't ;; seen any other items yet, or 2) it's followed by either ;; another separator or the end of the list. |