From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/79976 Path: news.gmane.org!not-for-mail From: Lars Magne Ingebrigtsen Newsgroups: gmane.emacs.gnus.general Subject: XEmacs breakage Date: Wed, 21 Sep 2011 16:46:03 +0200 Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1316616619 24586 80.91.229.12 (21 Sep 2011 14:50:19 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 21 Sep 2011 14:50:19 +0000 (UTC) Cc: ding@gnus.org To: Kan-Ru Chen Original-X-From: ding-owner+M28270@lists.math.uh.edu Wed Sep 21 16:50:13 2011 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1R6O7o-0003FO-SS for ding-account@gmane.org; Wed, 21 Sep 2011 16:50:13 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1R6O7O-0008QK-SJ; Wed, 21 Sep 2011 09:49:46 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1R6O7N-0008QC-Dl for ding@lists.math.uh.edu; Wed, 21 Sep 2011 09:49:45 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1R6O7M-0004mG-IM for ding@lists.math.uh.edu; Wed, 21 Sep 2011 09:49:45 -0500 Original-Received: from hermes.netfonds.no ([80.91.224.195]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1R6O7L-000580-6b for ding@gnus.org; Wed, 21 Sep 2011 16:49:43 +0200 Original-Received: from cm-84.215.51.58.getinternet.no ([84.215.51.58] helo=stories.gnus.org) by hermes.netfonds.no with esmtpsa (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.72) (envelope-from ) id 1R6O79-0002Oi-BJ; Wed, 21 Sep 2011 16:49:31 +0200 User-Agent: Gnus/5.110018 (No Gnus v0.18) Emacs/24.0.50 (gnu/linux) Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAGFBMVEUAAABMSk0vLjAXFhgD AgQAAAEnISoLCQxqaoXaAAACXElEQVQ4jXVTQXuiMBCdoui1SXbhaoLVKyEtXqmL7TVSca8bs7VX sFX//k5A9mPXlm8YQt43M29eJvB87j1/f/JnuH5895boXpRSvX2PEBL8cKthvln1gPH5I7/HqKzb 0J33ce/glp4GtCIDD62CUeVvY96kaizXMMY86LU/zsQnpBpi5gsAhP8FYC8NXRlGzKFAVtD4DIqq IRZj8eV0ox2rTQlDDW6NlqXYYD3R1zWQFT/x+BNW2BsX86s2YIepPBJ+GkGo5CGy8nqstjFGPNRE LAPkA86GLSuN58QJ5bMtzdqT65VxJzbb7+nxX3VKWHli8STE6xXncUHM/fviLu6Egs6PjNReGvCW VdayQuwsXQ0bpa1i+qIYKp9wjV+1v2pyhIL5O/rU39O+DxUCksRqBN0EXcqrASGW09nofx0F4S/0 sPu9tlbqi1ZFjME0kUHsW4hsPHKUMr9RDOCdsLcYYi9Vk928VwIIs4qpiSAynCdVr0qdpHL/IvYT RUly6/eknO3mbyzalYKZYuprQCsvsitZJ1Zywk3itDo6Vj6MozoJI2YOsL4p1m2EMzDZkCzrQ/KG wM26kwSB6HUrKA1okBpjbrIOyeB0mj0mSZ0c8/qxPtBbcIlccSUfKOXcKEWltMw2iRwUhWtCCaVG IEwJgeKoi6rcgDkSwnGGhAhlygJTdZIwQykiCARmH9D0tk2Fl4LVT9Nw+fNdMblgZnE3WNh0Va7g 8eNbPfg1HSg54ykz9jQ85+ccI8L18ftyOHFTncKdt1m2c1hCFXnVHCcK76GCiZcNWuk3fwCgL4Vf wuBMggAAAABJRU5ErkJggg== X-Now-Playing: Various's _Cold Waves + Minimal Electronics Volume One_: "Land Of Giants - Cannibal Dolls" X-MailScanner-ID: 1R6O79-0002Oi-BJ MailScanner-NULL-Check: 1317221371.74201@HnUhfK9jYdvId0ydjKjxZQ X-Spam-Status: No X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:79976 Archived-At: 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/