X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/912c672856da0a90312da4bbb500bf3c6758a166..0691c1795683432bbfe3ea20b9909965e570222b:/lisp/simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index 54871b3736..c0d796b97b 100644
--- 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."
 
 (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