Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
593 (cons modeline-modified-extent 'modeline-modified) 593 (cons modeline-modified-extent 'modeline-modified)
594 (cons modeline-buffer-id-extent 'modeline-buffer-identification) 594 (cons modeline-buffer-id-extent 'modeline-buffer-identification)
595 (purecopy " ") 595 (purecopy " ")
596 'global-mode-string 596 'global-mode-string
597 (purecopy " %[(") 597 (purecopy " %[(")
598 (cons modeline-minor-mode-extent (list "" 'mode-name 'minor-mode-alist)) 598 (cons modeline-minor-mode-extent
599 (cons modeline-narrowed-extent "%n") 599 (list (purecopy "") 'mode-name 'minor-mode-alist))
600 (cons modeline-narrowed-extent (purecopy "%n"))
600 'modeline-process 601 'modeline-process
601 (purecopy ")%]----") 602 (purecopy ")%]----")
602 (purecopy '(line-number-mode "L%l--")) 603 (list 'line-number-mode (purecopy "L%l--"))
603 (purecopy '(column-number-mode "C%c--")) 604 (list 'column-number-mode (purecopy "C%c--"))
604 (purecopy '(-3 . "%p")) 605 (cons -3 (purecopy "%p"))
605 (purecopy "-%-"))) 606 (purecopy "-%-")))
606 607
607 ;;; Added for XEmacs 20.3. Provide wrapper for vc since it may not always be 608 ;;; Added for XEmacs 20.3. Provide wrapper for vc since it may not always be
608 ;;; present, and its symbols are not visible this early in the dump if it 609 ;;; present, and its symbols are not visible this early in the dump if it
609 ;;; is. 610 ;;; is.