Mercurial > hg > xemacs-beta
diff lisp/modeline.el @ 4043:b325de44db27
[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 |
line wrap: on
line diff
--- a/lisp/modeline.el Fri Jun 29 08:01:08 2007 +0000 +++ b/lisp/modeline.el Fri Jun 29 08:17:46 2007 +0000 @@ -827,10 +827,9 @@ (defconst modeline-tty-frame-specifier (make-specifier 'boolean)) (add-hook 'create-frame-hook 'modeline-update-tty-frame-specifier) (defun modeline-update-tty-frame-specifier (f) - (if-fboundp 'frame-tty-p - (if (and (frame-tty-p f) - (> (frame-property f 'frame-number) 1)) - (set-specifier modeline-tty-frame-specifier t f)))) + (if (and (eq (frame-type f) 'tty) + (> (frame-property f 'frame-number) 1)) + (set-specifier modeline-tty-frame-specifier t f))) (define-modeline-control tty-frame-id (list modeline-tty-frame-specifier " [%S]"