Mercurial > emacs
changeset 91433:84e557581b9e
(widget-string-complete): Use assoc-string rather than assoc-ignore-case.
(widget-key-sequence-read-event): Use characterp rather than char-valid-p.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 02 Feb 2008 04:18:45 +0000 |
| parents | 649ddfa757be |
| children | 4bfcd8ee1104 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Sat Feb 02 04:17:54 2008 +0000 +++ b/lisp/wid-edit.el Sat Feb 02 04:18:45 2008 +0000 @@ -3043,7 +3043,7 @@ ;; Replace field with completion in case its case is different. (delete-region (widget-field-start widget) (widget-field-end widget)) - (insert-and-inherit (car (assoc-ignore-case prefix alist)))) + (insert-and-inherit (car (assoc-string prefix alist t)))) (message "Only match")) ((null completion) (error "No match")) @@ -3302,7 +3302,7 @@ (setq unread-command-events (cons ev unread-command-events) ev (read-quoted-char (format "Enter code (radix %d)" read-quoted-char-radix)) tr nil) - (if (and (integerp ev) (not (char-valid-p ev))) + (if (and (integerp ev) (not (characterp ev))) (insert (char-to-string ev)))) ;; throw invalid char error (setq ev (key-description (list ev))) (when (arrayp tr)