[bongo-patches] Add `read-number' to bongo-emacs21.el (suggested by Daniel Jensen)

[Daniel Brockman]

Wed Jan  3 05:39:54 CET 2007  Daniel Brockman <address@hidden>

 * Add `read-number' to bongo-emacs21.el (suggested by
   Daniel Jensen).

diff -rN -u old-bongo/bongo-emacs21.el new-bongo/bongo-emacs21.el
--- old-bongo/bongo-emacs21.el  2007-01-03 05:41:39.000000000 +0100
+++ new-bongo/bongo-emacs21.el  2007-01-03 05:41:39.000000000 +0100
@@ -1,12 +1,12 @@
 ;;; bongo-emacs21.el --- compatibility functions for Emacs 21
-;; Copyright (C) 2006  Daniel Brockman
-;; Copyright (C) 1996, 1997, 1999, 2001, 2002, 2003, 2004,
-;;   2005, 2006  Free Software Foundation, Inc.
+;; Copyright (C) 2006, 2007  Daniel Brockman
+;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1999, 2000,
+;;   2001, 2002, 2003, 2004, 2005, 2006  Free Software Foundation, Inc.
 
 ;; Author: Daniel Brockman <address@hidden>
 ;; URL: http://www.brockman.se/software/bongo/
 ;; Created: December 27, 2006
-;; Updated: December 27, 2006
+;; Updated: January 3, 2006
 
 ;; This file is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -56,6 +56,31 @@
   (apply 'run-hooks hooks)
   (run-hooks 'after-change-major-mode-hook))
 
+;;; The following function was copied from `subr.el'.
+
+(defun read-number (prompt &optional default)
+  (let ((n nil))
+    (when default
+      (setq prompt
+           (if (string-match "\\(\\):[ \t]*\\'" prompt)
+               (replace-match (format " (default %s)" default) t t prompt 1)
+             (replace-regexp-in-string "[ \t]*\\'"
+                                       (format " (default %s) " default)
+                                       prompt t t))))
+    (while
+       (progn
+         (let ((str (read-from-minibuffer prompt nil nil nil nil
+                                          (and default
+                                               (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))
+
 ;;; The following macros were copied from `byte-run.el'.
 
 (defmacro bongo-define-obsolete-function-alias

-- 
Daniel Brockman <address@hidden>