File unencodable-char-position-does-not-exist-in-xem... of Package w3m-el

Overview Repositories Revisions Requests Users Attributes Meta

File unencodable-char-position-does-not-exist-in-xemacs.patch of Package w3m-el (Revision 28d5c05c4bd5bb1fbdb6624d8115d1c8)

Currently displaying revision 28d5c05c4bd5bb1fbdb6624d8115d1c8 , Show latest

--- w3m-form.el~	2008-01-06 22:51:30 +0000
+++ w3m-form.el	2008-01-07 02:51:19 +0000
@@ -221,16 +221,23 @@
   `(w3m-form-put-property ,form ,id :value (cons ,name ,value)))
 (defmacro w3m-form-get (form id)
   `(cdr (w3m-form-get-property ,form ,id :value)))
+
+(eval-when-compile
+  (unless (fboundp 'unencodable-char-position)
+    (defalias 'unencodable-char-position 'ignore)))
 (defun w3m-form-coding-system-accept-region-p (&optional from to coding-system)
   "Check whether `coding-system' can encode specified region."
-  (let ((pos (unencodable-char-position (or from (point-min))
-					(or to   (point-max))
-					(or coding-system 
-					    w3m-form-input-textarea-coding-system))))
+  (let ((pos (when (fboundp 'unencodable-char-position)
+	       (unencodable-char-position
+		(or from (point-min))
+		(or to   (point-max))
+		(or coding-system
+		    w3m-form-input-textarea-coding-system)))))
     (or (not pos)
 	(y-or-n-p (format "\"%c\" would not be accepted. Continue? "
 			  (char-after pos))))))
+
 (defun w3m-form-get-by-name (form name)
   (let ((plist (w3m-form-plist form))
 	pair value)

Places

File unencodable-char-position-does-not-exist-in-xemacs.patch of Package w3m-el (Revision 28d5c05c4bd5bb1fbdb6624d8115d1c8)

Places