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>
* 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