(read-char-by-name): Accept hash notation. Doc fix.

(ucs-insert): Doc fix.  Convert to number only when `arg' is
a string.  Use separate error message when `arg' is not an integer.
Bind `ucs-insert' to `C-x 8 RET'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e14832be17558e27cb197ec1429fb35c651a9613..1b950b395868ba06907b74c00e687b7bba30af5b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,29 @@
+2008-07-31  Juri Linkov  <juri@jurta.org>
+
+       * dired-aux.el (dired-isearch-filenames-toggle): New command.
+       (dired-isearch-filenames-setup): Bind "\M-sf" to
+       dired-isearch-filenames-toggle in isearch-mode-map.
+       (dired-isearch-filenames-end): Bind "\M-sf" to nil
+       in isearch-mode-map.
+
+       * isearch.el (isearch-edit-string-set-word): New command.
+       (minibuffer-local-isearch-map): Bind "\C-w" to
+       isearch-edit-string-set-word.
+       (isearch-new-word): Temporary internal variable.
+       (isearch-edit-string): Remove special case of reading the
+       first character and checking it for C-w.
+
+       * simple.el (read-shell-command, shell-command):
+       Move code that uses minibuffer-with-setup-hook to set
+       minibuffer-default-add-function to minibuffer-default-add-shell-commands
+       from the interactive spec of `shell-command' to `read-shell-command'.
+
+       * international/mule-cmds.el (read-char-by-name):
+       Accept hash notation.  Doc fix.
+       (ucs-insert): Doc fix.  Convert to number only when `arg' is
+       a string.  Use separate error message when `arg' is not an integer.
+       Bind `ucs-insert' to `C-x 8 RET'.
+
 2008-07-31  Joachim Nilsson  <joachim.nilsson@member.fsf.org> (tiny change)
 
        * progmodes/cc-styles.el (c-style-alist): For the Ellemtel style,

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index aa45bda2c4802f808c8c2cda7fbad9763a92f3d5..08b50cbee7828da900ca0e5255da0d9bc31b3ac3 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2858,26 +2858,37 @@ If CODING-SYSTEM can't safely encode CHAR, return nil."
 
 (defun read-char-by-name (prompt)
   "Read a character by its Unicode name or hex number string.
-Display PROMPT and read a string that represents a character
-by its Unicode property `name' or `old-name'.  It also accepts
-a hexadecimal number of Unicode code point.  Returns a character
-as a number."
+Display PROMPT and read a string that represents a character by its
+Unicode property `name' or `old-name'.  You can type a few of first
+letters of the Unicode name and use completion.  This function also
+accepts a hexadecimal number of Unicode code point or a number in
+hash notation, e.g. #o21430 for octal, #x2318 for hex, or #10r8984
+for decimal.  Returns a character as a number."
   (let* ((completion-ignore-case t)
         (input (completing-read prompt ucs-completions)))
-    (or (and (string-match "^[0-9a-fA-F]+$" input)
-            (string-to-number input 16))
-       (cdr (assoc input (ucs-names))))))
+    (cond
+     ((string-match "^[0-9a-fA-F]+$" input)
+      (string-to-number input 16))
+     ((string-match "^#" input)
+      (read input))
+     (t
+      (cdr (assoc input (ucs-names)))))))
 
 (defun ucs-insert (arg)
   "Insert a character of the given Unicode code point.
-Interactively, prompts for a hex string giving the code."
+Interactively, prompts for a Unicode character name or a hex number
+using `read-char-by-name'."
   (interactive (list (read-char-by-name "Unicode (name or hex): ")))
-  (or (integerp arg)
+  (if (stringp arg)
       (setq arg (string-to-number arg 16)))
-  (if (or (< arg 0) (> arg #x10FFFF))
-      (error "Not a Unicode character code: 0x%X" arg))
+  (cond
+   ((not (integerp arg))
+    (error "Not a Unicode character code: %S" arg))
+   ((or (< arg 0) (> arg #x10FFFF))
+    (error "Not a Unicode character code: 0x%X" arg)))
   (insert-and-inherit arg))
 
+(define-key ctl-x-map "8\r" 'ucs-insert)
 
 ;; arch-tag: b382c432-4b36-460e-bf4c-05efd0bb18dc
 ;;; mule-cmds.el ends here