Commit a7f5d04f authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/obsolete/lucid.el (read-number): Remove, redundant.

* lisp/obsolete/cl-compat.el (cl-floor, cl-ceiling, cl-round, cl-truncate):
Remove, broken.
parent 253428c4
2014-10-02 Stefan Monnier <>
* obsolete/lucid.el (read-number): Remove, redundant.
* obsolete/cl-compat.el (cl-floor, cl-ceiling, cl-round, cl-truncate):
Remove, broken.
2014-10-02 Glenn Morris <>
* emacs-lisp/package.el (package-import-keyring):
......@@ -129,14 +129,6 @@
(if test-not (not (funcall test-not item elt))
(funcall (or test 'eql) item elt))))
;;; Rounding functions with old-style multiple value returns.
(defun cl-floor (a &optional b) (Values-list (floor* a b)))
(defun cl-ceiling (a &optional b) (Values-list (ceiling* a b)))
(defun cl-round (a &optional b) (Values-list (round* a b)))
(defun cl-truncate (a &optional b) (Values-list (truncate* a b)))
(defun safe-idiv (a b)
(let* ((q (/ (abs a) (abs b)))
(s (* (signum a) (signum b))))
......@@ -30,27 +30,6 @@
(defalias 'current-time-seconds 'current-time)
(defun read-number (prompt &optional integers-only)
"Read a number from the minibuffer.
Keep reentering the minibuffer until we get suitable input.
If optional argument INTEGERS-ONLY is non-nil, insist on an integer."
(let (success
(number nil)
(predicate (if integers-only 'integerp 'numberp)))
(while (not success)
(let ((input-string (read-string prompt)))
(condition-case ()
(setq number (read input-string))
(if (funcall predicate number)
(setq success t)
(let ((cursor-in-echo-area t))
(message "Please type %s"
(if integers-only "an integer" "a number"))
(sit-for 1)))))
(defun real-path-name (name &optional default)
(file-truename (expand-file-name name default)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment