Mercurial > emacs

comparison lisp/bindings.el @ 104611:d3071821d3ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 eace56b963d4
children c220a29e75fd
comparison
equal deleted inserted replaced
104610:e66828f2d289 104611:d3071821d3ea
1 ;;; bindings.el --- define standard key bindings and some variables 1 ;;; bindings.el --- define standard key bindings and some variables
2 2
3 ;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994, 1995, 1996, 1999, 3 ;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994, 1995, 1996, 1999,
4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
5 ;; Free Software Foundation, Inc.
5 6
6 ;; Maintainer: FSF 7 ;; Maintainer: FSF
7 ;; Keywords: internal 8 ;; Keywords: internal
8 9
9 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
354 'mode-line-position 355 'mode-line-position
355 '(vc-mode vc-mode) 356 '(vc-mode vc-mode)
356 (propertize " " 'help-echo help-echo) 357 (propertize " " 'help-echo help-echo)
357 'mode-line-modes 358 'mode-line-modes
358 `(which-func-mode ("" which-func-format ,dashes)) 359 `(which-func-mode ("" which-func-format ,dashes))
359 `(global-mode-string (,dashes global-mode-string)) 360 `(global-mode-string ("" global-mode-string ,dashes))
360 (propertize "-%-" 'help-echo help-echo))) 361 (propertize "-%-" 'help-echo help-echo)))
361 (standard-mode-line-modes 362 (standard-mode-line-modes
362 (list 363 (list
363 (propertize "%[" 'help-echo recursive-edit-help-echo) 364 (propertize "%[" 'help-echo recursive-edit-help-echo)
364 (propertize "(" 'help-echo help-echo) 365 (propertize "(" 'help-echo help-echo)