From e0576f07f3cc1596f9aee709cd772f46a8c3ad27 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 2 Feb 2008 04:18:45 +0000 Subject: [PATCH] (widget-string-complete): Use assoc-string rather than assoc-ignore-case. (widget-key-sequence-read-event): Use characterp rather than char-valid-p. --- lisp/wid-edit.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index d89e49fc79..205f70d32e 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) -- 2.20.1