comparison lisp/simple.el @ 1740:6d74de06a35d

* simple.el (kill-region): Change interactive spec to signal an error if the buffer is read-only, and remove the code to do a copy-region-as-kill if the buffer is read-only. * simple.el (set-mark-command): Clarify doc string. * simple.el (prefix-arg-internal): Don't apply string-to-char to get the first element of the key sequence - it might be a vector.

1739:d738d3690836

	  (describe-arg value sign)
	  (setq key (read-key-sequence nil t))))
    (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-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)))))

(defun describe-arg (value sign)

 to be killed.
Any command that calls this function is a \"kill command\".
If the previous command was also a kill command,
the text killed this time appends to the text killed last time
to make one entry in the kill ring."
  (interactive "r")
  (cond
   (buffer-read-only
    (copy-region-as-kill beg end))
   ((not (or (eq buffer-undo-list t)
	     (eq last-command 'kill-region)
	     (eq beg end)))
    ;; Don't let the undo list be truncated before we can even access it.
    (let ((undo-strong-limit (+ (- (max beg end) (min beg end)) 100)))

(defconst mark-ring-max 16
  "*Maximum size of mark ring.  Start discarding off end if gets this big.")

(defun set-mark-command (arg)
  "Set mark at where point is, or jump to mark.
With no prefix argument, set mark, and push previous mark on mark ring.
With argument, jump to mark, and pop into mark off the mark ring.

Novice Emacs Lisp programmers often try to use the mark for the wrong
purposes.  See the documentation of `set-mark' for more information."
  (interactive "P")
  (if (null arg)

1740:6d74de06a35d

	  (describe-arg value sign)
	  (setq key (read-key-sequence nil t))))
    (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-event (aref key 0))
      ;; We can't push back a longer string, so we'll emulate the
      ;; command loop ourselves.
      (command-execute (key-binding key)))))

(defun describe-arg (value sign)

 to be killed.
Any command that calls this function is a \"kill command\".
If the previous command was also a kill command,
the text killed this time appends to the text killed last time
to make one entry in the kill ring."
  (interactive "*r")
  (cond
   ;; If the buffer was read-only, we used to just do a
   ;; copy-region-as-kill.  This was never what I wanted - usually I
   ;; was making a mistake and trying to edit a file checked into RCS -
   ;; so I've taken the code out.
   ((not (or (eq buffer-undo-list t)
	     (eq last-command 'kill-region)
	     (eq beg end)))
    ;; Don't let the undo list be truncated before we can even access it.
    (let ((undo-strong-limit (+ (- (max beg end) (min beg end)) 100)))

(defconst mark-ring-max 16
  "*Maximum size of mark ring.  Start discarding off end if gets this big.")

(defun set-mark-command (arg)
  "Set mark at where point is, or jump to mark.
With no prefix argument, set mark, and push old mark position on mark ring.
With argument, jump to mark, and pop a new position for mark off the ring.

Novice Emacs Lisp programmers often try to use the mark for the wrong
purposes.  See the documentation of `set-mark' for more information."
  (interactive "P")
  (if (null arg)