Move Visual Wrap menu to menu-bar.el
* lisp/menu-bar.el (menu-bar-line-wrapping-menu): Insert new menu item controlling visual-wrap-prefix-mode. * lisp/visual-wrap.el: Remove menu bar autoload.
This commit is contained in:
@@ -1467,6 +1467,13 @@ mail status in mode line"))
|
||||
(not word-wrap)))
|
||||
:visible (menu-bar-menu-frame-live-and-visible-p)
|
||||
:enable (not (truncated-partial-width-window-p))))
|
||||
|
||||
(bindings--define-key menu [visual-wrap]
|
||||
'(menu-item "Visual Wrap Prefix" visual-wrap-prefix-mode
|
||||
:help "Display continuation lines with contextual prefix"
|
||||
:visible (menu-bar-menu-frame-live-and-visible-p)
|
||||
:button (:toggle . (bound-and-true-p visual-wrap-prefix-mode))
|
||||
:enable t))
|
||||
menu))
|
||||
|
||||
(defvar menu-bar-search-options-menu
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
;;; visual-wrap.el --- Smart line-wrapping with wrap-prefix
|
||||
;;; visual-wrap.el --- Smart line-wrapping with wrap-prefix -*- lexical-binding: t -*-
|
||||
|
||||
;; Copyright (C) 2011-2021, 2024 Free Software Foundation, Inc.
|
||||
|
||||
@@ -190,14 +190,5 @@ extra indent = 2
|
||||
(widen)
|
||||
(remove-text-properties (point-min) (point-max) '(wrap-prefix nil))))))
|
||||
|
||||
;;;###autoload
|
||||
(define-key-after (lookup-key menu-bar-options-menu [line-wrapping])
|
||||
[visual-wrap]
|
||||
'(menu-item "Visual Wrap" visual-wrap-prefix-mode
|
||||
:visible (menu-bar-menu-frame-live-and-visible-p)
|
||||
:help "Display continuation lines with prefix derived from context"
|
||||
:button (:toggle . (bound-and-true-p visual-wrap-prefix-mode)))
|
||||
word-wrap)
|
||||
|
||||
(provide 'visual-wrap)
|
||||
;;; visual-wrap.el ends here
|
||||
|
||||
Reference in New Issue
Block a user