Mercurial > emacs
changeset 104611:d3071821d3ea
(standard-mode-line-format): Reposition dashes in which-func entry. (Bug#4217)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 26 Aug 2009 02:59:34 +0000 |
| parents | e66828f2d289 |
| children | c220a29e75fd |
| files | lisp/ChangeLog lisp/bindings.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Aug 26 02:56:28 2009 +0000 +++ b/lisp/ChangeLog Wed Aug 26 02:59:34 2009 +0000 @@ -1,3 +1,8 @@ +2009-08-26 Glenn Morris <rgm@gnu.org> + + * bindings.el (standard-mode-line-format): Reposition dashes in + which-func entry. (Bug#4217) + 2009-08-26 Andreas Schwab <schwab@linux-m68k.org> * emacs-lisp/bytecomp.el (byte-compile-lapcode): Signal overflow.
--- a/lisp/bindings.el Wed Aug 26 02:56:28 2009 +0000 +++ b/lisp/bindings.el Wed Aug 26 02:59:34 2009 +0000 @@ -1,7 +1,8 @@ ;;; bindings.el --- define standard key bindings and some variables ;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994, 1995, 1996, 1999, -;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -356,7 +357,7 @@ (propertize " " 'help-echo help-echo) 'mode-line-modes `(which-func-mode ("" which-func-format ,dashes)) - `(global-mode-string (,dashes global-mode-string)) + `(global-mode-string ("" global-mode-string ,dashes)) (propertize "-%-" 'help-echo help-echo))) (standard-mode-line-modes (list