Mercurial > hg > xemacs-beta
changeset 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 | f9be867eb83e |
| children | e3cad3fd1be4 |
| files | lisp/ChangeLog lisp/modeline.el |
| diffstat | 2 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jun 29 08:01:08 2007 +0000 +++ b/lisp/ChangeLog Fri Jun 29 08:17:46 2007 +0000 @@ -1,3 +1,8 @@ +2007-06-19 Ron Isaacson <Ron.Isaacson@morganstanley.com> + + * modeline.el (modeline-update-tty-frame-specifier): Don't use + non-existent function frame-tty-p. + 2007-06-23 Adrian Aichner <adrian@xemacs.org> * package-get.el (package-get-download-sites): Add and announce
--- 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]"