diff lisp/progmodes/ebrowse.el @ 62402:a7e02ef1e3d6

Replace `string-to-int' by `string-to-number'.

--- a/lisp/progmodes/ebrowse.el	Mon May 16 10:07:59 2005 +0000
+++ b/lisp/progmodes/ebrowse.el	Mon May 16 11:33:47 2005 +0000
@@ -1448,10 +1448,10 @@
 (defun ebrowse-set-tree-indentation ()
   "Set the indentation width of the tree display."
   (interactive)
-  (let ((width (string-to-int (read-from-minibuffer
-			       (concat "Indentation ("
-				       (int-to-string ebrowse--indentation)
-				       "): ")))))
+  (let ((width (string-to-number (read-from-minibuffer
+                                  (concat "Indentation ("
+                                          (int-to-string ebrowse--indentation)
+                                          "): ")))))
     (when (plusp width)
       (setf ebrowse--indentation width)
       (ebrowse-redraw-tree))))
@@ -2329,7 +2329,7 @@
   "Set the column width of the member display.
 The new width is read from the minibuffer."
   (interactive)
-  (let ((width (string-to-int
+  (let ((width (string-to-number
 		(read-from-minibuffer
 		 (concat "Column width ("
 			 (int-to-string (if ebrowse--long-display-flag
@@ -4313,7 +4313,7 @@
   "Select the nth entry in the list by the keys 1..9."
   (interactive)
   (let* ((maxlin (count-lines (point-min) (point-max)))
-	 (n (min maxlin (+ 2 (string-to-int (this-command-keys))))))
+	 (n (min maxlin (+ 2 (string-to-number (this-command-keys))))))
     (goto-line n)
     (throw 'electric-buffer-menu-select (point))))