From: Glenn Morris Date: Sat, 2 Feb 2008 04:18:45 +0000 (+0000) Subject: (widget-string-complete): Use assoc-string rather than assoc-ignore-case. X-Git-Tag: emacs-pretest-23.0.90~8250 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0576f07f3cc1596f9aee709cd772f46a8c3ad27;p=emacs.git (widget-string-complete): Use assoc-string rather than assoc-ignore-case. (widget-key-sequence-read-event): Use characterp rather than char-valid-p. --- diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index d89e49fc79e..205f70d32ef 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -3043,7 +3043,7 @@ widget. If that isn't a list, it's evalled and expected to yield a list." ;; 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 @@ It reads a directory name from an editable text field." (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)