CVS update by stephent xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: stephent
  Date: 07/06/29 10:17:51

  Modified:    xemacs/lisp ChangeLog modeline.el
Log:
Don't use nonexistent function frame-tty-p. <87tzsr17ye.fsf at uwakimon.sk.tsukuba.ac.jp>

Revision  Changes    Path
1.809     +5 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.808
retrieving revision 1.809
diff -u -p -r1.808 -r1.809
--- ChangeLog	2007/06/22 23:17:46	1.808
+++ ChangeLog	2007/06/29 08:17:44	1.809
@@ -1,3 +1,8 @@
+2007-06-19  Ron Isaacson  <Ron.Isaacson at morganstanley.com>
+
+	* modeline.el (modeline-update-tty-frame-specifier): Don't use
+	non-existent function frame-tty-p.
+
 2007-06-23  Adrian Aichner  <adrian at xemacs.org>
 
 	* package-get.el (package-get-download-sites): Add and announce



1.24      +3 -4      XEmacs/xemacs/lisp/modeline.el

Index: modeline.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/modeline.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -p -r1.23 -r1.24
--- modeline.el	2002/03/13 08:52:07	1.23
+++ modeline.el	2007/06/29 08:17:46	1.24
@@ -827,10 +827,9 @@ percentage of the file above point."
 (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]"