diff options
Diffstat (limited to 'lisp/progmodes/ebrowse.el')
| -rw-r--r-- | lisp/progmodes/ebrowse.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index 457c00d9008..6dd15897e7b 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el @@ -1448,10 +1448,10 @@ Pop to member buffer if no prefix ARG, to tree buffer otherwise." (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 @@ With prefix ARG, switch to the tree buffer else pop to it." "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 @@ NUMBER-OF-STATIC-VARIABLES:" "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)))) |