mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Remove mode-line end dashes on graphical terminals.

Browse Source 
* tutorials/TUTORIAL: Don't mention mode-line end dashes.
* bindings.el: Remove end dashes in default mode-line-format.
This commit is contained in:
Julien Danjou 2010-10-19 15:20:33 -04:00 committed by Chong Yidong
parent b8a47412d3
commit 3f12b18cb5
4 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/ChangeLog
View File

@ -1,3 +1,7 @@
2010-10-19 Julien Danjou <julien@danjou.info>
* tutorials/TUTORIAL: Don't mention mode-line end dashes.
2010-10-16 Chong Yidong <cyd@stupidchicken.com>
* themes: New directory for custom theme files, moved from lisp/.

12
etc/tutorials/TUTORIAL
View File

@ -498,12 +498,12 @@ you save, Emacs leaves the original file under a changed name in case
you later decide that your changes were a mistake.
If you look near the bottom of the screen you will see a line that
begins and ends with dashes, and starts with "--:--- TUTORIAL" or
something like that. This part of the screen normally shows the name
of the file that you are visiting. Right now, you are visiting a file
called "TUTORIAL" which is your personal scratch copy of the Emacs
tutorial. When you find a file with Emacs, that file's name will
appear in that precise spot.
begins with dashes, and starts with "--:--- TUTORIAL" or something
like that. This part of the screen normally shows the name of the
file that you are visiting. Right now, you are visiting a file called
"TUTORIAL" which is your personal scratch copy of the Emacs tutorial.
When you find a file with Emacs, that file's name will appear in that
precise spot.
One special thing about the command for finding a file is that you
have to say what file name you want. We say the command "reads an

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2010-10-18 Julien Danjou <julien@danjou.info>
* bindings.el: Remove end dashes in default mode-line-format.
2010-10-19 Chong Yidong <cyd@stupidchicken.com>
* bindings.el (global-map): Bind C-d to delete-char and deletechar

11
lisp/bindings.el
View File

@ -318,7 +318,7 @@ Keymap to display on column and line numbers.")
mouse-2: Make current window occupy the whole frame\n\
mouse-3: Remove current window from display")
(recursive-edit-help-echo "Recursive edit, type C-M-c to get out")
(dashes (propertize "--" 'help-echo help-echo))
(spaces (propertize " " 'help-echo help-echo))
(standard-mode-line-format
(list
"%e"
@ -334,9 +334,10 @@ mouse-3: Remove current window from display")
'(vc-mode vc-mode)
(propertize " " 'help-echo help-echo)
'mode-line-modes
`(which-func-mode ("" which-func-format ,dashes))
`(global-mode-string ("" global-mode-string ,dashes))
(propertize "-%-" 'help-echo help-echo)))
`(which-func-mode ("" which-func-format ,spaces))
`(global-mode-string ("" global-mode-string ,spaces))
`(:eval (unless (display-graphic-p)
,(propertize "-%-" 'help-echo help-echo)))))
(standard-mode-line-modes
(list
(propertize "%[" 'help-echo recursive-edit-help-echo)
@ -362,7 +363,7 @@ mouse-3: Toggle minor modes"
'mouse-2 #'mode-line-widen))
(propertize ")" 'help-echo help-echo)
(propertize "%]" 'help-echo recursive-edit-help-echo)
(propertize "--" 'help-echo help-echo)))
spaces))
(standard-mode-line-position
`((-3 ,(propertize