Commits

Anonymous committed 7493544

restore listify-key-sequence

  • Participants
  • Parent commits 6169ba1

Comments (0)

Files changed (3)

+1998-04-09  Didier Verna  <verna@inf.enst.fr>
+
+	* quail.el: replicated the `listify-key-sequence' code in
+	`quail-execute-non-quail-command', since this function no longer
+	exists. 
+
 1998-02-06  Didier Verna  <verna@inf.enst.fr>
 
 	* quail.el (quail-start-translation): Fix previous patch by adding
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.06
+VERSION = 1.07
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = leim
 The current translation and conversion are terminated."
   (interactive)
   (let* ((key (this-command-keys))
-	 (keylist (listify-key-sequence key)))
+	 ;; dverna - Apr. 98
+	 ;; This code clones the listify-key-sequence function that was
+	 ;; removed since 20.5-b33. Quail was the only package to use it
+	 ;; at that time. + rest in piece +
+	 (aux (logior 128 (read "?\\M-\\^@")))
+	 (keylist
+	  (if (vectorp key)
+	      (append key nil)
+	    (mapcar (function (lambda (c) (if (> c 127) (logxor c aux) c)))
+		    (append key nil)))))
     (setq unread-command-events
 	  (append keylist unread-command-events)))
   (reset-this-command-lengths)