diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-11-15 23:57:39 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-11-15 23:57:39 +0000 |
| commit | 8a8fa7233da495aa3249f9ad70ac357e663b0ece (patch) | |
| tree | 2d44eb89e75e716de9b5d18f03fb7cd22c74d002 /lisp/simple.el | |
| parent | 64d8c7fb28790b1ba2783c9b64f2c4dd348ce654 (diff) | |
| download | emacs-8a8fa7233da495aa3249f9ad70ac357e663b0ece.tar.gz | |
* simple.el (comment-column): Doc fix.
* bytecomp.el: Declare unread-command-char an obsolete variable.
* vip.el (vip-escape-to-emacs, vip-prefix-arg-value,
vip-prefix-arg-com): Use unread-command-event instead of
unread-command-char; respect its new semantics.
* simula.el (simula-electric-label): Same.
* comint.el (comint-dynamic-list-completions): Same.
* ebuff-menu.el (electric-buffer-list, Electric-buffer-menu-exit):
Same.
* ehelp.el (electric-help-command-loop): Same.
* electric.el (Electric-command-loop): Same.
* emerge.el (emerge-show-file-name): Same.
* fortran.el (fortran-abbrev-start, fortran-window-create-momentarily):
Same.
* gnus.el (gnus-Subject-next-article): Same.
* info.el (Info-summary): Same.
* isearch-mode.el (isearch-update, isearch-unread): Same.
* map-ynp.el (map-y-or-n-p): Same.
* mlsupport.el (push-back-character): Same.
* replace.el (perform-replace): Same.
* simple.el (prefix-arg-internal): Same.
* subr.el (read-quoted-char, momentary-string-display): Same.
* sun-mouse.el (mouse-second-hit): Same.
* terminal.el (te-escape-extended-command-unread): Same.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 2399733e646..c0d796b97b7 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -769,7 +769,7 @@ Repeating \\[universal-argument] without digits or minus sign (if (= (length key) 1) ;; Make sure self-insert-command finds the proper character; ;; unread the character and let the command loop process it. - (setq unread-command-char (string-to-char key)) + (setq unread-command-event (string-to-char key)) ;; We can't push back a longer string, so we'll emulate the ;; command loop ourselves. (command-execute (key-binding key))))) @@ -1406,7 +1406,9 @@ With argument 0, interchanges line point is in with line mark is in." (defconst comment-column 32 "*Column to indent right-margin comments to. -Setting this variable automatically makes it local to the current buffer.") +Setting this variable automatically makes it local to the current buffer. +Each mode establishes a different default value for this variable; you +can the value for a particular mode using that mode's hook.") (make-variable-buffer-local 'comment-column) (defconst comment-start nil |