mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

Don't show menu titles with the text property 'hide' (bug#50067)

Browse Source 
* lisp/mouse.el (context-menu-map): Add menu title "Context Menu"
propertized with the text property 'hide'.

* src/menu.c (x_popup_menu_1): Don't show the title with the non-nil
text property 'hide' on GTK and NS.
This commit is contained in:
Juri Linkov 2021-08-22 11:44:55 +03:00
parent 654e096b09
commit dd7d966eb4
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/mouse.el
View File

@ -304,7 +304,7 @@ the same menu with changes such as added new menu items."
(defun context-menu-map ()
"Return composite menu map."
(let ((menu (make-sparse-keymap)))
(let ((menu (make-sparse-keymap (propertize "Context Menu" 'hide t))))
(run-hook-wrapped 'context-menu-functions
(lambda (fun)
(setq menu (funcall fun menu))

8
src/menu.c
View File

@ -1284,6 +1284,14 @@ x_popup_menu_1 (Lisp_Object position, Lisp_Object menu)
/* Search for a string appearing directly as an element of the keymap.
That string is the title of the menu. */
prompt = Fkeymap_prompt (keymap);
#if defined (USE_GTK) || defined (HAVE_NS)
if (STRINGP (prompt)
&& SCHARS (prompt) > 0
&& !NILP (Fget_text_property (make_fixnum (0), Qhide, prompt)))
title = Qnil;
else
#endif
if (!NILP (prompt))
title = prompt;