User: aidan
Date: 06/04/15 16:44:36
Modified: xemacs/lisp ChangeLog cmdloop.el
Log:
Use Unicode for quoted-insert of codes greater than #xFF.
Revision Changes Path
1.735 +11 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.734
retrieving revision 1.735
diff -u -p -r1.734 -r1.735
--- ChangeLog 2006/03/31 19:19:25 1.734
+++ ChangeLog 2006/04/15 14:44:34 1.735
＠＠ -1,3 +1,14 ＠＠
+2006-04-15 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * cmdloop.el (read-quoted-char): Use unicode-to-char instead of
+ int-to-char for converting code points to characters; document
+ this usage. This is compatible with previously documented
+ behaviour, since the mapping from number to character was only
+ stable and well-defined for ISO-8859-1. Thank you Pete Forman!
+
+ Document some help subsystem incompatibility with GNU that seems
+ to have been ignored during the last sync.
+
2006-03-31 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.26 "endive" is released.
1.20 +21 -10 XEmacs/xemacs/lisp/cmdloop.el
Index: cmdloop.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cmdloop.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -p -r1.19 -r1.20
--- cmdloop.el 2006/01/08 20:00:43 1.19
+++ cmdloop.el 2006/04/15 14:44:34 1.20
＠＠ -542,13 +542,16 ＠＠ Legitimate radix values are 8, 10 and 16
:group 'editing-basics)
(defun read-quoted-char (&optional prompt)
+ ;; XEmacs change; description of the character code input
"Like `read-char', but do not allow quitting.
-Also, if the first character read is an octal digit,
-we read any number of octal digits and return the
-specified character code. Any nondigit terminates the sequence.
-If the terminator is RET, it is discarded;
-any other terminator is used itself as input.
+Also, if the first character read is a digit of base (the value of)
+`read-quoted-char-radix', we read as many of such digits as are
+typed and return a character with the corresponding Unicode code
+point. Any input that not a digit (in the base used) terminates the
+sequence. If the terminator is RET, it is discarded; any other
+terminator is used itself as input.
+
The optional argument PROMPT specifies a string to use to prompt the user.
The variable `read-quoted-char-radix' controls which radix to use
for numeric input."
＠＠ -558,13 +561,20 ＠＠ for numeric input."
)
(while (not done)
(let ((inhibit-quit first)
- ;; Don't let C-h get the help message--only help function keys.
+ ;; Don't let C-h get the help message--only help
+ ;; function keys.
+ ;; XEmacs: we don't support the help function keys as of
+ ;; 2006-04-16. GNU have a Vhelp_event_list in addition
+ ;; to help-char in src/keyboard.c, and it's only useful
+ ;; to set help-form while help-char is nil when that
+ ;; functionality is available.
(help-char nil)
- (help-form
+ (help-form (format
"Type the special character you want to use,
-or the octal character code.
+or the character code, base %d (the value of `read-quoted-char-radix')
RET terminates the character code and is discarded;
-any other non-digit terminates the character code and is then used as input."))
+any other non-digit terminates the character code and is then used as input."
+ read-quoted-char-radix)))
(and prompt (display-message 'prompt (format "%s-" prompt)))
(setq event (next-command-event)
char (or (event-to-character event)
＠＠ -605,7 +615,8 ＠＠ any other non-digit terminates the chara
(t (setq code (char-to-int char)
done t)))
(setq first nil))
- (int-to-char code)))
+ ;; XEmacs change; unicode-to-char instead of int-to-char
+ (unicode-to-char code)))
;; in passwd.el.
; (defun read-passwd (prompt &optional confirm default)
