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> 2010-10-16 Chong Yidong <cyd@stupidchicken.com>
* themes: New directory for custom theme files, moved from lisp/. * 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 ...@@ -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. you later decide that your changes were a mistake.
If you look near the bottom of the screen you will see a line that 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 begins with dashes, and starts with "--:--- TUTORIAL" or something
something like that. This part of the screen normally shows the name like that. This part of the screen normally shows the name of the
of the file that you are visiting. Right now, you are visiting a file file that you are visiting. Right now, you are visiting a file called
called "TUTORIAL" which is your personal scratch copy of the Emacs "TUTORIAL" which is your personal scratch copy of the Emacs tutorial.
tutorial. When you find a file with Emacs, that file's name will When you find a file with Emacs, that file's name will appear in that
appear in that precise spot. precise spot.
One special thing about the command for finding a file is that you 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 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> 2010-10-19 Chong Yidong <cyd@stupidchicken.com>
* bindings.el (global-map): Bind C-d to delete-char and deletechar * bindings.el (global-map): Bind C-d to delete-char and deletechar
......
...@@ -318,7 +318,7 @@ Keymap to display on column and line numbers.") ...@@ -318,7 +318,7 @@ Keymap to display on column and line numbers.")
mouse-2: Make current window occupy the whole frame\n\ mouse-2: Make current window occupy the whole frame\n\
mouse-3: Remove current window from display") mouse-3: Remove current window from display")
(recursive-edit-help-echo "Recursive edit, type C-M-c to get out") (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 (standard-mode-line-format
(list (list
"%e" "%e"
...@@ -334,9 +334,10 @@ mouse-3: Remove current window from display") ...@@ -334,9 +334,10 @@ mouse-3: Remove current window from display")
'(vc-mode vc-mode) '(vc-mode vc-mode)
(propertize " " 'help-echo help-echo) (propertize " " 'help-echo help-echo)
'mode-line-modes 'mode-line-modes
`(which-func-mode ("" which-func-format ,dashes)) `(which-func-mode ("" which-func-format ,spaces))
`(global-mode-string ("" global-mode-string ,dashes)) `(global-mode-string ("" global-mode-string ,spaces))
(propertize "-%-" 'help-echo help-echo))) `(:eval (unless (display-graphic-p)
,(propertize "-%-" 'help-echo help-echo)))))
(standard-mode-line-modes (standard-mode-line-modes
(list (list
(propertize "%[" 'help-echo recursive-edit-help-echo) (propertize "%[" 'help-echo recursive-edit-help-echo)
...@@ -362,7 +363,7 @@ mouse-3: Toggle minor modes" ...@@ -362,7 +363,7 @@ mouse-3: Toggle minor modes"
'mouse-2 #'mode-line-widen)) 'mouse-2 #'mode-line-widen))
(propertize ")" 'help-echo help-echo) (propertize ")" 'help-echo help-echo)
(propertize "%]" 'help-echo recursive-edit-help-echo) (propertize "%]" 'help-echo recursive-edit-help-echo)
(propertize "--" 'help-echo help-echo))) spaces))
(standard-mode-line-position (standard-mode-line-position
`((-3 ,(propertize `((-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