Mercurial > hg > xemacs-beta
diff lisp/mule/general-late.el @ 4596:4fc32a3a086e
Fix a couple of bugs, #'query-coding-region, #'query-coding-string.
2009-02-04 Aidan Kehoe <kehoea@parhasard.net>
* coding.el (query-coding-region):
Revert this to being a defun, add a compiler macro without
needless binding.
(query-coding-string):
Correct a bug here, string indices are zero- not one-based.
* mule/general-late.el (unicode-query-coding-skip-chars-arg):
Correct the algorithm used to initialise this variable.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 04 Feb 2009 12:14:38 +0000 |
| parents | 84d618b355f5 |
| children | 257b468bf2ca |
line wrap: on
line diff
--- a/lisp/mule/general-late.el Wed Feb 04 11:38:25 2009 +0000 +++ b/lisp/mule/general-late.el Wed Feb 04 12:14:38 2009 +0000 @@ -71,7 +71,7 @@ unicode-query-coding-skip-chars-arg (eval-when-compile - (when-fboundp #'map-charset-chars + (when-fboundp 'map-charset-chars (loop for charset in (charset-list) with skip-chars-string = "" @@ -80,17 +80,16 @@ (map-charset-chars #'(lambda (begin end) (loop - while (/= end begin) + while (and begin (>= end begin)) do (when (= -1 (char-to-unicode begin)) - (setq this-charset-works nil) (return-from no-ucs-mapping)) (setq begin (int-to-char (1+ begin))))) charset) (setq skip-chars-string (concat skip-chars-string (charset-skip-chars-string charset)))) - finally return (skip-chars-quote skip-chars-string))))) + finally return skip-chars-string)))) ;; At this point in the dump, all the charsets have been loaded. Now, load ;; their Unicode mappings.