Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents a86b2b5e0111
children 697ef44129c6
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
573 (defconst modeline-buffer-identification 573 (defconst modeline-buffer-identification
574 (list (cons modeline-buffer-id-left-extent (purecopy "XEmacs%N:")) 574 (list (cons modeline-buffer-id-left-extent (purecopy "XEmacs%N:"))
575 ; this used to be "XEmacs:" 575 ; this used to be "XEmacs:"
576 (cons modeline-buffer-id-right-extent (purecopy " %17b"))) 576 (cons modeline-buffer-id-right-extent (purecopy " %17b")))
577 "Modeline control for identifying the buffer being displayed. 577 "Modeline control for identifying the buffer being displayed.
578 Its default value is \"XEmacs: %17b\" (NOT!). Major modes that edit things 578 Its default value is
579 other than ordinary files may change this (e.g. Info, Dired,...)") 579
580 (list (cons modeline-buffer-id-left-extent (purecopy \"XEmacs%N:\"))
581 (cons modeline-buffer-id-right-extent (purecopy \" %17b\")))
582
583 Major modes that edit things other than ordinary files may change this
584 (e.g. Info, Dired,...).")
580 (make-variable-buffer-local 'modeline-buffer-identification) 585 (make-variable-buffer-local 'modeline-buffer-identification)
581 586
582 ;; These are for the sake of minor mode menu. #### All of this is 587 ;; These are for the sake of minor mode menu. #### All of this is
583 ;; kind of dirty. `add-minor-mode' started out as a simple substitute 588 ;; kind of dirty. `add-minor-mode' started out as a simple substitute
584 ;; for (or (assq ...) ...) FSF stuff, but now is used for all kind of 589 ;; for (or (assq ...) ...) FSF stuff, but now is used for all kind of