comparison lisp/subr.el @ 54570:cf58c77ee000

(read-number): New function.

54569:3a7d16dc72af

;;; subr.el --- basic lisp subroutines for Emacs

;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001, 2002, 2003
;;   Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: internal

		(let ((new-pass (substring pass 0 -1)))
		  (and (arrayp pass) (clear-string pass))
		  (setq pass new-pass))))))
      (message nil)
      (or pass default ""))))

;;; Atomic change groups.

(defmacro atomic-change-group (&rest body)
  "Perform BODY as an atomic change group.

54570:cf58c77ee000

;;; subr.el --- basic lisp subroutines for Emacs

;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001, 2002, 03, 2004
;;   Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: internal

		(let ((new-pass (substring pass 0 -1)))
		  (and (arrayp pass) (clear-string pass))
		  (setq pass new-pass))))))
      (message nil)
      (or pass default ""))))

;; This should be used by `call-interactively' for `n' specs.
(defun read-number (prompt &optional default)
  (let ((n nil))
    (when default
      (setq prompt
	    (if (string-match "\\(\\):[^:]*" prompt)
		(replace-match (format " [%s]" default) t t prompt 1)
	      (concat prompt (format " [%s] " default)))))
    (while
	(progn
	  (let ((str (read-from-minibuffer prompt nil nil nil nil
					   (number-to-string default))))
	    (setq n (cond
		     ((zerop (length str)) default)
		     ((stringp str) (read str)))))
	  (unless (numberp n)
	    (message "Please enter a number.")
	    (sit-for 1)
	    t)))
    n))

;;; Atomic change groups.

(defmacro atomic-change-group (&rest body)
  "Perform BODY as an atomic change group.