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)))) |
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 |
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 |
|
|