Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 84b14dcb0985
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
291 (define-key modeline-map 'button3 'modeline-menu) 291 (define-key modeline-map 'button3 'modeline-menu)
292 292
293 (make-face 'modeline-mousable "Face for mousable portions of the modeline.") 293 (make-face 'modeline-mousable "Face for mousable portions of the modeline.")
294 (set-face-parent 'modeline-mousable 'modeline nil '(default)) 294 (set-face-parent 'modeline-mousable 'modeline nil '(default))
295 (when (featurep 'window-system) 295 (when (featurep 'window-system)
296 (set-face-foreground 'modeline-mousable 296 (set-face-foreground 'modeline-mousable "firebrick" nil '(default color win))
297 '(((default color x) . "firebrick") 297 (set-face-font 'modeline-mousable [bold] nil '(default mono win))
298 ((default color mswindows) . "firebrick")) 298 (set-face-font 'modeline-mousable [bold] nil '(default grayscale win)))
299 'global))
300 (when (featurep 'x)
301 (set-face-font 'modeline-mousable [bold] nil '(default mono x))
302 (set-face-font 'modeline-mousable [bold] nil '(default grayscale x)))
303 299
304 (defmacro make-modeline-command-wrapper (command) 300 (defmacro make-modeline-command-wrapper (command)
305 `#'(lambda (event) 301 `#'(lambda (event)
306 (interactive "e") 302 (interactive "e")
307 (save-selected-window 303 (save-selected-window
331 (make-face 'modeline-mousable-minor-mode 327 (make-face 'modeline-mousable-minor-mode
332 "Face for mousable minor-mode strings in the modeline.") 328 "Face for mousable minor-mode strings in the modeline.")
333 (set-face-parent 'modeline-mousable-minor-mode 'modeline-mousable nil 329 (set-face-parent 'modeline-mousable-minor-mode 'modeline-mousable nil
334 '(default)) 330 '(default))
335 (when (featurep 'window-system) 331 (when (featurep 'window-system)
336 (set-face-foreground 'modeline-mousable-minor-mode 332 (set-face-foreground 'modeline-mousable-minor-mode '("green4" "forestgreen")
337 '(((default color x) . "green4") 333 nil '(default color win)))
338 ((default color x) . "forestgreen")
339 ((default color mswindows) . "green4")
340 ((default color mswindows) . "forestgreen"))
341 'global))
342 334
343 (defvar modeline-mousable-minor-mode-extent (make-extent nil nil) 335 (defvar modeline-mousable-minor-mode-extent (make-extent nil nil)
344 ;; alliteration at its finest. 336 ;; alliteration at its finest.
345 "Extent managing the mousable minor mode modeline strings.") 337 "Extent managing the mousable minor mode modeline strings.")
346 (set-extent-face modeline-mousable-minor-mode-extent 338 (set-extent-face modeline-mousable-minor-mode-extent
536 528
537 (make-face 'modeline-buffer-id 529 (make-face 'modeline-buffer-id
538 "Face for the buffer ID string in the modeline.") 530 "Face for the buffer ID string in the modeline.")
539 (set-face-parent 'modeline-buffer-id 'modeline nil '(default)) 531 (set-face-parent 'modeline-buffer-id 'modeline nil '(default))
540 (when (featurep 'window-system) 532 (when (featurep 'window-system)
541 (set-face-foreground 'modeline-buffer-id 533 (set-face-foreground 'modeline-buffer-id "blue4" nil '(default color win))
542 '(((default color x) . "blue4") 534 (set-face-font 'modeline-buffer-id [bold-italic] nil '(default mono win))
543 ((default color mswindows) . "blue4")) 535 (set-face-font 'modeline-buffer-id [bold-italic] nil '(default grayscale win)))
544 'global))
545 (when (featurep 'x)
546 (set-face-font 'modeline-buffer-id [bold-italic] nil '(default mono x))
547 (set-face-font 'modeline-buffer-id [bold-italic] nil '(default grayscale x)))
548 (when (featurep 'tty) 536 (when (featurep 'tty)
549 (set-face-font 'modeline-buffer-id [bold-italic] nil '(default tty))) 537 (set-face-font 'modeline-buffer-id [bold-italic] nil '(default tty)))
550 538
551 (defvar modeline-buffer-id-extent (make-extent nil nil) 539 (defvar modeline-buffer-id-extent (make-extent nil nil)
552 "Extent covering the whole of the buffer-id string.") 540 "Extent covering the whole of the buffer-id string.")