From: Glenn Morris <rgm@gnu.org>
Date: Wed, 26 Aug 2009 02:59:34 +0000 (+0000)
Subject: (standard-mode-line-format): Reposition dashes in which-func entry. (Bug#4217)
X-Git-Tag: emacs-pretest-23.1.90~1681
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e49c01791000a9d18cd7813c947c78b1ea1b7cf7;p=emacs.git

(standard-mode-line-format): Reposition dashes in which-func entry. (Bug#4217)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d2796ed3dc..540b967be49 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/bindings.el b/lisp/bindings.el
index c4c1c78674d..563d4f73352 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -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 @@ mouse-3: Remove current window from display")
 	 (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