* configure: Start with a blank line; this keeps some old CSH's

[gnu-emacs] / lisp / simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index 54871b3736c4e926359a5dcc654338c5fb3473c9..c0d796b97b7307602d06437a9fa8fb953f6ba6b4 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -664,7 +664,7 @@ but it is nonetheless available in buffer `*Shell Command Output*'
 even though that buffer is not automatically displayed.  If there is no output
 or output is inserted in the current buffer then `*Shell Command Output*' is
 deleted." 
-  (interactive (list (min (point) (mark)) (max (point) (mark))
+  (interactive (list (region-beginning) (region-end)
                     (read-string "Shell command on region: "
                                  last-shell-command-on-region)
                     current-prefix-arg
@@ -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)))))
@@ -816,7 +816,9 @@ When calling from a program, nil means \"no arg\",
 a number counts as a prefix arg."
   (interactive "P")
   (kill-region (point)
-              (progn
+              ;; Don't shift point before doing the delete; that way,
+              ;; undo will record the right position of point.
+              (save-excursion
                 (if arg
                     (forward-line (prefix-numeric-value arg))
                   (if (eobp)
@@ -1241,7 +1243,7 @@ a semipermanent goal column to which this command always moves.
 Then it does not try to move vertically.
 
 If you are thinking of using this in a Lisp program, consider using
-`forward-line' with negative argument instead..  It is usually easier
+`forward-line' with a negative argument instead.  It is usually easier
 to use and more reliable (no dependence on goal column, etc.)."
   (interactive "p")
   (line-move (- arg))
@@ -1404,7 +1406,9 @@ With argument 0, interchanges line point is in with line mark is in."
 \f
 (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