Commit 9db13baf authored by Glenn Morris's avatar Glenn Morris
Browse files

* lisp/menu-bar.el (menu-bar-options-menu): Remove text-mode auto-fill,

now that text mode has a menu with the same entry.
(menu-bar-text-mode-auto-fill): Remove now unused func.

* lisp/textmodes/text-mode.el (text-mode-map):
Use auto-fill help text from menu-bar.el.
parent a066720c
2013-10-10 Glenn Morris <rgm@gnu.org>
* menu-bar.el (menu-bar-options-menu): Remove text-mode auto-fill,
now that text mode has a menu with the same entry.
(menu-bar-text-mode-auto-fill): Remove now unused func.
* textmodes/text-mode.el (text-mode-map):
Use auto-fill help text from menu-bar.el.
2013-10-10 John Anthony <john@jo.hnanthony.com> (tiny change)
* textmodes/text-mode.el (text-mode-map): Add a menu. (Bug#15562)
......
......@@ -1102,15 +1102,6 @@ mail status in mode line"))
'tool-bar-lines))))))
menu))
(defun menu-bar-text-mode-auto-fill ()
(interactive)
(toggle-text-mode-auto-fill)
;; This is somewhat questionable, as `text-mode-hook'
;; might have changed outside customize.
;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11.
(customize-mark-as-set 'text-mode-hook))
(defvar menu-bar-line-wrapping-menu
(let ((menu (make-sparse-keymap "Line Wrapping")))
......@@ -1275,15 +1266,6 @@ mail status in mode line"))
"Case-Insensitive Search %s"
"Ignore letter-case in search commands"))
(bindings--define-key menu [auto-fill-mode]
'(menu-item
"Auto Fill in Text Modes"
menu-bar-text-mode-auto-fill
:help "Automatically fill text while typing (Auto Fill mode)"
:button (:toggle . (if (listp text-mode-hook)
(member 'turn-on-auto-fill text-mode-hook)
(eq 'turn-on-auto-fill text-mode-hook)))))
(bindings--define-key menu [line-wrapping]
`(menu-item "Line Wrapping in This Buffer"
,menu-bar-line-wrapping-menu))
......
;;; text-mode.el --- text mode, and its idiosyncratic commands
;; Copyright (C) 1985, 1992, 1994, 2001-2013 Free Software Foundation,
;; Inc.
;; Copyright (C) 1985, 1992, 1994, 2001-2013 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: wp
......@@ -56,7 +55,7 @@ Use (derived-mode-p 'text-mode) instead.")
(bindings--define-key map [menu-bar text toggle-text-mode-auto-fill]
'(menu-item "Auto Fill" toggle-text-mode-auto-fill
:button (:toggle . (memq 'turn-on-auto-fill text-mode-hook))
:help "Toggle auto fill within text modes"))
:help "Automatically fill text while typing in text modes (Auto Fill mode)"))
(bindings--define-key map [menu-bar text paragraph-indent-minor-mode]
'(menu-item "Paragraph Indent" paragraph-indent-minor-mode
:button (:toggle . (bound-and-true-p paragraph-indent-minor-mode))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment