[Emacs-diffs] Changes to emacs/lisp/progmodes/ebrowse.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/ebrowse.el
diff -c emacs/lisp/progmodes/ebrowse.el:1.28 
emacs/lisp/progmodes/ebrowse.el:1.29
*** emacs/lisp/progmodes/ebrowse.el:1.28        Thu May  5 11:04:14 2005
--- emacs/lisp/progmodes/ebrowse.el     Mon May 16 11:26:54 2005
***************
*** 1448,1457 ****
  (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)
!                                      "): ")))))
      (when (plusp width)
        (setf ebrowse--indentation width)
        (ebrowse-redraw-tree))))
--- 1448,1457 ----
  (defun ebrowse-set-tree-indentation ()
    "Set the indentation width of the tree display."
    (interactive)
!   (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,2335 ****
    "Set the column width of the member display.
  The new width is read from the minibuffer."
    (interactive)
!   (let ((width (string-to-int
                (read-from-minibuffer
                 (concat "Column width ("
                         (int-to-string (if ebrowse--long-display-flag
--- 2329,2335 ----
    "Set the column width of the member display.
  The new width is read from the minibuffer."
    (interactive)
!   (let ((width (string-to-number
                (read-from-minibuffer
                 (concat "Column width ("
                         (int-to-string (if ebrowse--long-display-flag
***************
*** 4313,4319 ****
    "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))))))
      (goto-line n)
      (throw 'electric-buffer-menu-select (point))))
  
--- 4313,4319 ----
    "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-number (this-command-keys))))))
      (goto-line n)
      (throw 'electric-buffer-menu-select (point))))