Commit 3f12b18c authored by Julien Danjou's avatar Julien Danjou Committed by Chong Yidong

Remove mode-line end dashes on graphical terminals.

* tutorials/TUTORIAL: Don't mention mode-line end dashes.
* bindings.el: Remove end dashes in default mode-line-format.
parent b8a47412
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/.
......
......@@ -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
......
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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment