carbon2-commit: Correct a bug in #'display-graphic-p.

changeset: 4623:732e3243f2e4f8be3758ef0820b6a415dfbd1966 parent: 4621:00ed9903a988de9a983c074bf0abdc667639eeaf user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Sat Jan 31 13:21:32 2009 +0000 files: lisp/ChangeLog lisp/frame.el description: Correct a bug in #'display-graphic-p. 2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net&gt; * frame.el (display-graphic-p): Call #'display-device on the DISPLAY argument, ensuring that the argument to #'device-on-window-system-p is correct. diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r 732e3243f2e4f8be3758ef0820b6a415dfbd1966 lisp/ChangeLog --- a/lisp/ChangeLog Sun Jan 18 12:56:51 2009 +0000 +++ b/lisp/ChangeLog Sat Jan 31 13:21:32 2009 +0000 ＠＠ -1,3 +1,9 ＠＠ 2009-01-18 Ville Skyttä <scop(a)xemacs.o +2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * frame.el (display-graphic-p): + Call #'display-device on the DISPLAY argument, ensuring that the + argument to #'device-on-window-system-p is correct. + 2009-01-18 Ville Skyttä <scop(a)xemacs.org&gt; * font.el (font-*-p): Docstring spelling fix. diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r 732e3243f2e4f8be3758ef0820b6a415dfbd1966 lisp/frame.el --- a/lisp/frame.el Sun Jan 18 12:56:51 2009 +0000 +++ b/lisp/frame.el Sat Jan 31 13:21:32 2009 +0000 ＠＠ -1211,7 +1211,7 ＠＠ that use a window system such as X, and that use a window system such as X, and false for text-only terminals. DISPLAY can be a frame, a device, a console, or nil (meaning the selected frame)." - (device-on-window-system-p display)) + (device-on-window-system-p (display-device display))) (defun display-images-p (&optional display) "Return non-nil if DISPLAY can display images. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches