[PATCH] Use a more general check for GUI features, VM

Hi Robert -- This improves Carbon support a little. I still have another error and backtrace when I try to visit a folder in a carbon build, though; hopefully I can resolve it in the next few days. I’ll send it on in a separate mail. Grüße, Aidan xemacs-packages/vm/ChangeLog addition: 2008-08-20 Aidan Kehoe <kehoea(a)parhasard.net&gt; * lisp/vm-mime.el (vm-mime-charset-decode-region): * lisp/vm-mime.el (vm-mime-charset-internally-displayable-p): Call #'device-on-window-system-p instead of hard-coding the list of window systems on XEmacs (improves Carbon support). XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/vm/lisp/vm-mime.el =================================================================== RCS Index: xemacs-packages/vm/lisp/vm-mime.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/lisp/vm-mime.el,v retrieving revision 1.2 diff -u -u -r1.2 vm-mime.el --- xemacs-packages/vm/lisp/vm-mime.el 2008/08/12 22:10:54 1.2 +++ xemacs-packages/vm/lisp/vm-mime.el 2008/08/20 15:56:06 ＠＠ -321,7 +321,7 ＠＠ (defun vm-mime-charset-decode-region (charset start end) (or (markerp end) (setq end (vm-marker end))) (cond ((or vm-xemacs-mule-p vm-fsfemacs-mule-p) - (if (or (and vm-xemacs-p (memq (device-type) '(x gtk mswindows))) + (if (or (and vm-xemacs-p (device-on-window-system-p)) vm-fsfemacs-p (vm-mime-tty-can-display-mime-charset charset) nil) ＠＠ -4384,7 +4384,7 ＠＠ (defun vm-mime-charset-internally-displayable-p (name) "Can the given MIME charset be displayed within emacs by by VM?" - (cond ((and vm-xemacs-mule-p (memq (device-type) '(x gtk mswindows))) + (cond ((and vm-xemacs-mule-p (device-on-window-system-p)) (or (vm-string-assoc name vm-mime-mule-charset-to-coding-alist) (vm-mime-default-face-charset-p name))) ((and vm-fsfemacs-mule-p (memq window-system '(x mac win32 w32))) -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches