* XEmacs breakage
@ 2011-09-21 14:46 Lars Magne Ingebrigtsen
0 siblings, 0 replies; only message in thread
From: Lars Magne Ingebrigtsen @ 2011-09-21 14:46 UTC (permalink / raw)
To: Kan-Ru Chen; +Cc: ding
The following patch makes Gnus on XEmacs break. Can you suggest a way
to do this without using `read-key-sequence-vector', which doesn't exist
on XEmacs?
diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index 6a47b11..737c0db 100644
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -123,14 +123,15 @@
(message "%s" matches)
nil)
(setq highlight (ecomplete-highlight-match-line matches line))
- (while (not (memq (setq command (read-event highlight)) '(? return)))
+ (while (not (member (setq command (read-key-sequence-vector highlight))
+ '([? ] [return] [?\r] [?\n] [?\C-g])))
(cond
- ((eq command ?\M-n)
+ ((member command '([27 ?n] [?\M-n]))
(setq line (min (1+ line) max-lines)))
- ((eq command ?\M-p)
+ ((member command '([27 ?p] [?\M-p]))
(setq line (max (1- line) 0))))
(setq highlight (ecomplete-highlight-match-line matches line)))
- (when (eq command 'return)
+ (when (member command '([return] [?\r] [?\n]))
(nth line (split-string matches "\n")))))))
(defun ecomplete-highlight-match-line (matches line)
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog http://lars.ingebrigtsen.no/
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2011-09-21 14:46 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-09-21 14:46 XEmacs breakage Lars Magne Ingebrigtsen
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).