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:
Po Lu
2024-01-27 09:38:46 +08:00
parent d50300c500
commit 55f0b3e561
2 changed files with 8 additions and 10 deletions

View File

@@ -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

View File

@@ -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