Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 7039e6323819
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
586 modeline-buffer-id-right-map) 586 modeline-buffer-id-right-map)
587 (set-extent-property modeline-buffer-id-right-extent 'help-echo 587 (set-extent-property modeline-buffer-id-right-extent 'help-echo
588 "button2 cycles to the next buffer") 588 "button2 cycles to the next buffer")
589 589
590 (defconst modeline-buffer-identification 590 (defconst modeline-buffer-identification
591 (list (cons modeline-buffer-id-left-extent (purecopy "XEmacs%N:")) 591 (list (cons modeline-buffer-id-left-extent "XEmacs%N:")
592 ; this used to be "XEmacs:" 592 ; this used to be "XEmacs:"
593 (cons modeline-buffer-id-right-extent (purecopy " %17b"))) 593 (cons modeline-buffer-id-right-extent " %17b"))
594 "Modeline control for identifying the buffer being displayed. 594 "Modeline control for identifying the buffer being displayed.
595 Its default value is 595 Its default value is
596 596
597 (list (cons modeline-buffer-id-left-extent (purecopy \"XEmacs%N:\")) 597 (list (cons modeline-buffer-id-left-extent \"XEmacs%N:\")
598 (cons modeline-buffer-id-right-extent (purecopy \" %17b\"))) 598 (cons modeline-buffer-id-right-extent \" %17b\")))
599 599
600 Major modes that edit things other than ordinary files may change this 600 Major modes that edit things other than ordinary files may change this
601 (e.g. Info, Dired,...).") 601 (e.g. Info, Dired,...).")
602 (make-variable-buffer-local 'modeline-buffer-identification) 602 (make-variable-buffer-local 'modeline-buffer-identification)
603 603
624 (set-extent-face modeline-modified-extent 'modeline-mousable) 624 (set-extent-face modeline-modified-extent 'modeline-mousable)
625 (set-extent-keymap modeline-modified-extent modeline-modified-map) 625 (set-extent-keymap modeline-modified-extent modeline-modified-map)
626 (set-extent-property modeline-modified-extent 'help-echo 626 (set-extent-property modeline-modified-extent 'help-echo
627 "button2 toggles the buffer's read-only status") 627 "button2 toggles the buffer's read-only status")
628 628
629 (defconst modeline-modified (purecopy '("--%1*%1+-")) 629 (defconst modeline-modified '("--%1*%1+-")
630 "Modeline control for displaying whether current buffer is modified.") 630 "Modeline control for displaying whether current buffer is modified.")
631 (make-variable-buffer-local 'modeline-modified) 631 (make-variable-buffer-local 'modeline-modified)
632 632
633 (defvar modeline-narrowed-map (make-sparse-keymap 'modeline-narrowed-map) 633 (defvar modeline-narrowed-map (make-sparse-keymap 'modeline-narrowed-map)
634 "Keymap consulted for mouse-clicks on the modeline-narrowed string.") 634 "Keymap consulted for mouse-clicks on the modeline-narrowed string.")
643 "button2 widens the buffer") 643 "button2 widens the buffer")
644 644
645 (setq-default 645 (setq-default
646 modeline-format 646 modeline-format
647 (list 647 (list
648 (purecopy "") 648 ""
649 (cons modeline-modified-extent 'modeline-modified) 649 (cons modeline-modified-extent 'modeline-modified)
650 (cons modeline-buffer-id-extent 'modeline-buffer-identification) 650 (cons modeline-buffer-id-extent 'modeline-buffer-identification)
651 (purecopy " ") 651 " "
652 'global-mode-string 652 'global-mode-string
653 (purecopy " %[(") 653 " %[("
654 (cons modeline-minor-mode-extent 654 (cons modeline-minor-mode-extent
655 (list (purecopy "") 'mode-name 'minor-mode-alist)) 655 (list "" 'mode-name 'minor-mode-alist))
656 (cons modeline-narrowed-extent (purecopy "%n")) 656 (cons modeline-narrowed-extent "%n")
657 'modeline-process 657 'modeline-process
658 (purecopy ")%]----") 658 ")%]----"
659 (list 'line-number-mode (purecopy "L%l--")) 659 (list 'line-number-mode "L%l--")
660 (list 'column-number-mode (purecopy "C%c--")) 660 (list 'column-number-mode "C%c--")
661 (cons -3 (purecopy "%p")) 661 (cons -3 "%p")
662 (purecopy "-%-"))) 662 "-%-"))
663 663
664 ;;; Added for XEmacs 20.3. Provide wrapper for vc since it may not always be 664 ;;; Added for XEmacs 20.3. Provide wrapper for vc since it may not always be
665 ;;; present, and its symbols are not visible this early in the dump if it 665 ;;; present, and its symbols are not visible this early in the dump if it
666 ;;; is. 666 ;;; is.
667 667