/[emacs]/emacs/lisp/progmodes/ebrowse.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/ebrowse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by lektu, Thu May 5 11:04:14 2005 UTC revision 1.29 by lektu, Mon May 16 11:26:54 2005 UTC
# Line 1448  Pop to member buffer if no prefix ARG, t Line 1448  Pop to member buffer if no prefix ARG, t
1448  (defun ebrowse-set-tree-indentation ()  (defun ebrowse-set-tree-indentation ()
1449    "Set the indentation width of the tree display."    "Set the indentation width of the tree display."
1450    (interactive)    (interactive)
1451    (let ((width (string-to-int (read-from-minibuffer    (let ((width (string-to-number (read-from-minibuffer
1452                                 (concat "Indentation ("                                    (concat "Indentation ("
1453                                         (int-to-string ebrowse--indentation)                                            (int-to-string ebrowse--indentation)
1454                                         "): ")))))                                            "): ")))))
1455      (when (plusp width)      (when (plusp width)
1456        (setf ebrowse--indentation width)        (setf ebrowse--indentation width)
1457        (ebrowse-redraw-tree))))        (ebrowse-redraw-tree))))
# Line 2329  With prefix ARG, switch to the tree buff Line 2329  With prefix ARG, switch to the tree buff
2329    "Set the column width of the member display.    "Set the column width of the member display.
2330  The new width is read from the minibuffer."  The new width is read from the minibuffer."
2331    (interactive)    (interactive)
2332    (let ((width (string-to-int    (let ((width (string-to-number
2333                  (read-from-minibuffer                  (read-from-minibuffer
2334                   (concat "Column width ("                   (concat "Column width ("
2335                           (int-to-string (if ebrowse--long-display-flag                           (int-to-string (if ebrowse--long-display-flag
# Line 4313  NUMBER-OF-STATIC-VARIABLES:" Line 4313  NUMBER-OF-STATIC-VARIABLES:"
4313    "Select the nth entry in the list by the keys 1..9."    "Select the nth entry in the list by the keys 1..9."
4314    (interactive)    (interactive)
4315    (let* ((maxlin (count-lines (point-min) (point-max)))    (let* ((maxlin (count-lines (point-min) (point-max)))
4316           (n (min maxlin (+ 2 (string-to-int (this-command-keys))))))           (n (min maxlin (+ 2 (string-to-number (this-command-keys))))))
4317      (goto-line n)      (goto-line n)
4318      (throw 'electric-buffer-menu-select (point))))      (throw 'electric-buffer-menu-select (point))))
4319    

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26