Mercurial > emacs
comparison lisp/subr.el @ 6838:ff8e7580e32d
(read-quoted-char): Convert meta chars into 128+ chars.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 12 Apr 1994 21:27:27 +0000 |
| parents | a379e974be7c |
| children | ea2aef9d9f0e |
comparison
equal
deleted
inserted
replaced
| 6837:e7d9adf0b7d7 | 6838:ff8e7580e32d |
|---|---|
| 581 (and prompt (message (setq prompt | 581 (and prompt (message (setq prompt |
| 582 (format "%s %c" prompt char))))) | 582 (format "%s %c" prompt char))))) |
| 583 ((> count 0) | 583 ((> count 0) |
| 584 (setq unread-command-events (list char) count 259)) | 584 (setq unread-command-events (list char) count 259)) |
| 585 (t (setq code char count 259)))) | 585 (t (setq code char count 259)))) |
| 586 (logand 255 code))) | 586 ;; Turn a meta-character into a character with the 0200 bit set. |
| 587 (logior (if (/= (logand code (lsh 1 23)) 0) 128 0) | |
| 588 (logand 255 code)))) | |
| 587 | 589 |
| 588 (defun force-mode-line-update (&optional all) | 590 (defun force-mode-line-update (&optional all) |
| 589 "Force the mode-line of the current buffer to be redisplayed. | 591 "Force the mode-line of the current buffer to be redisplayed. |
| 590 With optional non-nil ALL, force redisplay of all mode-lines." | 592 With optional non-nil ALL, force redisplay of all mode-lines." |
| 591 (if all (save-excursion (set-buffer (other-buffer)))) | 593 (if all (save-excursion (set-buffer (other-buffer)))) |