comparison lisp/subr.el @ 47305:3feceef12d3a

(read-quoted-char): Apply listify-key-sequence to vector returned by this-single-command-raw-keys before appending it to unread-command-event.

47304:2ae3c0d6525a

any other non-digit terminates the character code and is then used as input."))
	(setq char (read-key (and prompt (format "%s-" prompt))))
	(if inhibit-quit (setq quit-flag nil)))
      (cond ((null char))
	    ((not (integerp char))
	     (setq unread-command-events (this-single-command-raw-keys)
		   done t))
	    ((/= (logand char ?\M-\^@) 0)
	     ;; Turn a meta-character into a character with the 0200 bit set.
	     (setq code (logior (logand char (lognot ?\M-\^@)) 128)
		   done t))

			   (+ 10 (- (downcase char) ?a))))
	     (and prompt (setq prompt (message "%s %c" prompt char))))
	    ((and (not first) (eq char ?\C-m))
	     (setq done t))
	    ((not first)
	     (setq unread-command-events (this-single-command-raw-keys)
		   done t))
	    (t (setq code char
		     done t)))
      (setq first nil))
    code))

47305:3feceef12d3a

any other non-digit terminates the character code and is then used as input."))
	(setq char (read-key (and prompt (format "%s-" prompt))))
	(if inhibit-quit (setq quit-flag nil)))
      (cond ((null char))
	    ((not (integerp char))
	     (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys))
		   done t))
	    ((/= (logand char ?\M-\^@) 0)
	     ;; Turn a meta-character into a character with the 0200 bit set.
	     (setq code (logior (logand char (lognot ?\M-\^@)) 128)
		   done t))

			   (+ 10 (- (downcase char) ?a))))
	     (and prompt (setq prompt (message "%s %c" prompt char))))
	    ((and (not first) (eq char ?\C-m))
	     (setq done t))
	    ((not first)
	     (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys))
		   done t))
	    (t (setq code char
		     done t)))
      (setq first nil))
    code))