Mercurial > hg > xemacs-beta

comparison lisp/cmdloop.el @ 3196:827b833cd3ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-01-08 20:00:41 by aidan] Handle some GNU read-quoted-char integration difficulties.
author aidan
date Sun, 08 Jan 2006 20:00:43 +0000
parents a25c824ed558
children 591c4e52c6d5
comparison
equal deleted inserted replaced
3195:44b3e4dda13e 3196:827b833cd3ce
577 (let ((translated (lookup-key function-key-map (vector char)))) 577 (let ((translated (lookup-key function-key-map (vector char))))
578 (if (arrayp translated) 578 (if (arrayp translated)
579 (setq char (aref translated 0))))) 579 (setq char (aref translated 0)))))
580 (cond ((null char)) 580 (cond ((null char))
581 ((not (characterp char)) 581 ((not (characterp char))
582 (setq unread-command-events (list char) 582 ;; XEmacs change; event instead of char.
583 (setq unread-command-events (list event)
583 done t)) 584 done t))
584 ; ((/= (logand char ?\M-\^@) 0) 585 ; ((/= (logand char ?\M-\^@) 0)
585 ; ;; Turn a meta-character into a character with the 0200 bit set. 586 ; ;; Turn a meta-character into a character with the 0200 bit set.
586 ; (setq code (logior (logand char (lognot ?\M-\^@)) 128) 587 ; (setq code (logior (logand char (lognot ?\M-\^@)) 128)
587 ; done t)) 588 ; done t))
596 (and prompt (setq prompt (display-message 'prompt 597 (and prompt (setq prompt (display-message 'prompt
597 (format "%s %c" prompt char))))) 598 (format "%s %c" prompt char)))))
598 ((and (not first) (eq char ?\C-m)) 599 ((and (not first) (eq char ?\C-m))
599 (setq done t)) 600 (setq done t))
600 ((not first) 601 ((not first)
601 (setq unread-command-events (list char) 602 ;; XEmacs change; event instead of char.
603 (setq unread-command-events (list event)
602 done t)) 604 done t))
603 (t (setq code (char-to-int char) 605 (t (setq code (char-to-int char)
604 done t))) 606 done t)))
605 (setq first nil)) 607 (setq first nil))
606 (int-to-char code))) 608 (int-to-char code)))