aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/bindings.el11
2 files changed, 10 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 394cfdd61d7..aae1e0e81c0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12010-10-18 Julien Danjou <julien@danjou.info>
2
3 * bindings.el: Remove end dashes in default mode-line-format.
4
12010-10-19 Chong Yidong <cyd@stupidchicken.com> 52010-10-19 Chong Yidong <cyd@stupidchicken.com>
2 6
3 * bindings.el (global-map): Bind C-d to delete-char and deletechar 7 * bindings.el (global-map): Bind C-d to delete-char and deletechar
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 9c802e53a56..e9a4c559169 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -318,7 +318,7 @@ Keymap to display on column and line numbers.")
318mouse-2: Make current window occupy the whole frame\n\ 318mouse-2: Make current window occupy the whole frame\n\
319mouse-3: Remove current window from display") 319mouse-3: Remove current window from display")
320 (recursive-edit-help-echo "Recursive edit, type C-M-c to get out") 320 (recursive-edit-help-echo "Recursive edit, type C-M-c to get out")
321 (dashes (propertize "--" 'help-echo help-echo)) 321 (spaces (propertize " " 'help-echo help-echo))
322 (standard-mode-line-format 322 (standard-mode-line-format
323 (list 323 (list
324 "%e" 324 "%e"
@@ -334,9 +334,10 @@ mouse-3: Remove current window from display")
334 '(vc-mode vc-mode) 334 '(vc-mode vc-mode)
335 (propertize " " 'help-echo help-echo) 335 (propertize " " 'help-echo help-echo)
336 'mode-line-modes 336 'mode-line-modes
337 `(which-func-mode ("" which-func-format ,dashes)) 337 `(which-func-mode ("" which-func-format ,spaces))
338 `(global-mode-string ("" global-mode-string ,dashes)) 338 `(global-mode-string ("" global-mode-string ,spaces))
339 (propertize "-%-" 'help-echo help-echo))) 339 `(:eval (unless (display-graphic-p)
340 ,(propertize "-%-" 'help-echo help-echo)))))
340 (standard-mode-line-modes 341 (standard-mode-line-modes
341 (list 342 (list
342 (propertize "%[" 'help-echo recursive-edit-help-echo) 343 (propertize "%[" 'help-echo recursive-edit-help-echo)
@@ -362,7 +363,7 @@ mouse-3: Toggle minor modes"
362 'mouse-2 #'mode-line-widen)) 363 'mouse-2 #'mode-line-widen))
363 (propertize ")" 'help-echo help-echo) 364 (propertize ")" 'help-echo help-echo)
364 (propertize "%]" 'help-echo recursive-edit-help-echo) 365 (propertize "%]" 'help-echo recursive-edit-help-echo)
365 (propertize "--" 'help-echo help-echo))) 366 spaces))
366 367
367 (standard-mode-line-position 368 (standard-mode-line-position
368 `((-3 ,(propertize 369 `((-3 ,(propertize