Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 4043:b325de44db27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-29 08:17:44 by stephent] Don't use nonexistent function frame-tty-p. <87tzsr17ye.fsf@uwakimon.sk.tsukuba.ac.jp>
author stephent
date Fri, 29 Jun 2007 08:17:46 +0000
parents 943eaba38521
children 49e17f7182f5
comparison
equal deleted inserted replaced
4042:f9be867eb83e 4043:b325de44db27
825 'modeline-buffer-id) 825 'modeline-buffer-id)
826 826
827 (defconst modeline-tty-frame-specifier (make-specifier 'boolean)) 827 (defconst modeline-tty-frame-specifier (make-specifier 'boolean))
828 (add-hook 'create-frame-hook 'modeline-update-tty-frame-specifier) 828 (add-hook 'create-frame-hook 'modeline-update-tty-frame-specifier)
829 (defun modeline-update-tty-frame-specifier (f) 829 (defun modeline-update-tty-frame-specifier (f)
830 (if-fboundp 'frame-tty-p 830 (if (and (eq (frame-type f) 'tty)
831 (if (and (frame-tty-p f) 831 (> (frame-property f 'frame-number) 1))
832 (> (frame-property f 'frame-number) 1)) 832 (set-specifier modeline-tty-frame-specifier t f)))
833 (set-specifier modeline-tty-frame-specifier t f))))
834 833
835 (define-modeline-control tty-frame-id (list modeline-tty-frame-specifier 834 (define-modeline-control tty-frame-id (list modeline-tty-frame-specifier
836 " [%S]" 835 " [%S]"
837 ) 836 )
838 "Modeline control for showing which TTY frame is selected.") 837 "Modeline control for showing which TTY frame is selected.")