(ecomplete-display-matches): Use literals.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25b1c96..afec384 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * ecomplete.el (ecomplete-display-matches): Get highlightling
        right. 
+       (ecomplete-display-matches): Use literals.
 
        * message.el (message-display-abbrev): Small optimization.
 

diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index 665fde3..1c5eb57 100644 (file)
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -113,9 +113,9 @@
        (setq highlight (ecomplete-highlight-match-line matches line))
        (while (not (memq (setq command (read-event highlight)) '(? return)))
          (cond
-          ((eq command (aref (kbd "M-n") 0))
+          ((eq command ?\M-n)
            (setq line (min (1+ line) max-lines)))
-          ((eq command (aref (kbd "M-p") 0))
+          ((eq command ?\M-p)
            (setq line (max (1- line) 0))))
          (setq highlight (ecomplete-highlight-match-line matches line)))
        (when (eq command 'return)