procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/textmodes/text-mode.el (text-mode-context-menu): Rename recently added.

Browse source
This commit is contained in:
Juri Linkov 2021-10-27 20:32:23 +03:00
parent da6d889e90
commit 7e2b973d60
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/textmodes/text-mode.el
View file

@ -95,7 +95,7 @@ inherit all the commands defined in this map.")
:style toggle :style toggle
:selected (memq 'turn-on-auto-fill text-mode-hook)])) :selected (memq 'turn-on-auto-fill text-mode-hook)]))
(defun text-mode-menu (menu click) (defun text-mode-context-menu (menu click)
"Populate MENU with text selection commands at CLICK." "Populate MENU with text selection commands at CLICK."
(when (thing-at-mouse click 'word) (when (thing-at-mouse click 'word)
@ -127,7 +127,7 @@ You can thus get the full benefit of adaptive filling
Turning on Text mode runs the normal hook `text-mode-hook'." Turning on Text mode runs the normal hook `text-mode-hook'."
(setq-local text-mode-variant t) (setq-local text-mode-variant t)
(setq-local require-final-newline mode-require-final-newline) (setq-local require-final-newline mode-require-final-newline)
(add-hook 'context-menu-functions 'text-mode-menu 10 t)) (add-hook 'context-menu-functions 'text-mode-context-menu 10 t))
(define-derived-mode paragraph-indent-text-mode text-mode "Parindent" (define-derived-mode paragraph-indent-text-mode text-mode "Parindent"
"Major mode for editing text, with leading spaces starting a paragraph. "Major mode for editing text, with leading spaces starting a paragraph.