(menu-bar-options-menu) <truncate-lines>:
Respect truncate-partial-width-windows in non-full windows, with regards to :toggle and :enable state.
This commit is contained in:
parent
96a7394f29
commit
eda0be5a2c
2 changed files with 11 additions and 2 deletions
|
@ -24,6 +24,10 @@
|
|||
|
||||
2008-04-10 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* menu-bar.el (menu-bar-options-menu) <truncate-lines>:
|
||||
Respect truncate-partial-width-windows in non-full windows,
|
||||
with regards to :toggle and :enable state.
|
||||
|
||||
* simple.el (toggle-truncate-lines): Doc fix.
|
||||
|
||||
* Makefile.in (MH_E_DIR): New variable.
|
||||
|
|
|
@ -1050,8 +1050,13 @@ mail status in mode line"))
|
|||
'(menu-item "Truncate Long Lines in this Buffer"
|
||||
toggle-truncate-lines
|
||||
:help "Truncate long lines on the screen"
|
||||
:button (:toggle . truncate-lines)
|
||||
:enable (menu-bar-menu-frame-live-and-visible-p)))
|
||||
:button (:toggle . (if (or (window-full-width-p)
|
||||
(not truncate-partial-width-windows))
|
||||
truncate-lines
|
||||
truncate-partial-width-windows))
|
||||
:enable (and (menu-bar-menu-frame-live-and-visible-p)
|
||||
(or (window-full-width-p)
|
||||
(not truncate-partial-width-windows)))))
|
||||
|
||||
(define-key menu-bar-options-menu [highlight-separator]
|
||||
'("--"))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue