comparison lisp/simple.el @ 59055:f6e8a2dc456a

(undo-outer-limit-truncate): New function. (undo-outer-limit-function): Use undo-outer-limit-truncate.

59054:a32a0ec1c9ac

	     ;; (BEGIN . END)
	     (cons (car undo-elt) (- (car undo-elt) (cdr undo-elt))))
	    (t
	     '(0 . 0)))
    '(0 . 0)))

(defvar shell-command-history nil
  "History list for some commands that read shell commands.")

(defvar shell-command-switch "-c"

59055:f6e8a2dc456a

	     ;; (BEGIN . END)
	     (cons (car undo-elt) (- (car undo-elt) (cdr undo-elt))))
	    (t
	     '(0 . 0)))
    '(0 . 0)))

;; When the first undo batch in an undo list is longer than undo-outer-limit,
;; this function gets called to ask the user what to do.
;; Garbage collection is inhibited around the call,
;; so it had better not do a lot of consing.
(setq undo-outer-limit-function 'undo-outer-limit-truncate)
(defun undo-outer-limit-truncate (size)
  (if (yes-or-no-p (format "Buffer %s undo info is %d bytes long; discard it? "
			   (buffer-name) size))
      (progn (setq buffer-undo-list nil) t)
    nil))

(defvar shell-command-history nil
  "History list for some commands that read shell commands.")

(defvar shell-command-switch "-c"