[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 55f0b3e5610 3/3: Move Visual Wrap menu to menu-bar.el
From: |
Po Lu |
Subject: |
master 55f0b3e5610 3/3: Move Visual Wrap menu to menu-bar.el |
Date: |
Fri, 26 Jan 2024 20:45:57 -0500 (EST) |
branch: master
commit 55f0b3e561034a1ad4235770d1c0685439a64fe5
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
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.
---
lisp/menu-bar.el | 7 +++++++
lisp/visual-wrap.el | 11 +----------
2 files changed, 8 insertions(+), 10 deletions(-)
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 477e3036b47..761f0603c75 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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
diff --git a/lisp/visual-wrap.el b/lisp/visual-wrap.el
index 6e6e45a480c..f8e00b9c685 100644
--- a/lisp/visual-wrap.el
+++ b/lisp/visual-wrap.el
@@ -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