Mercurial > emacs
comparison lisp/progmodes/ebrowse.el @ 62402:a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 16 May 2005 11:33:47 +0000 |
| parents | c0b42702a33a |
| children | f2892faa87d4 f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62401:4512c4db6912 | 62402:a7e02ef1e3d6 |
|---|---|
| 1446 ;;; Misc tree buffer commands | 1446 ;;; Misc tree buffer commands |
| 1447 | 1447 |
| 1448 (defun ebrowse-set-tree-indentation () | 1448 (defun ebrowse-set-tree-indentation () |
| 1449 "Set the indentation width of the tree display." | 1449 "Set the indentation width of the tree display." |
| 1450 (interactive) | 1450 (interactive) |
| 1451 (let ((width (string-to-int (read-from-minibuffer | 1451 (let ((width (string-to-number (read-from-minibuffer |
| 1452 (concat "Indentation (" | 1452 (concat "Indentation (" |
| 1453 (int-to-string ebrowse--indentation) | 1453 (int-to-string ebrowse--indentation) |
| 1454 "): "))))) | 1454 "): "))))) |
| 1455 (when (plusp width) | 1455 (when (plusp width) |
| 1456 (setf ebrowse--indentation width) | 1456 (setf ebrowse--indentation width) |
| 1457 (ebrowse-redraw-tree)))) | 1457 (ebrowse-redraw-tree)))) |
| 1458 | 1458 |
| 1459 | 1459 |
| 2327 | 2327 |
| 2328 (defun ebrowse-set-member-buffer-column-width () | 2328 (defun ebrowse-set-member-buffer-column-width () |
| 2329 "Set the column width of the member display. | 2329 "Set the column width of the member display. |
| 2330 The new width is read from the minibuffer." | 2330 The new width is read from the minibuffer." |
| 2331 (interactive) | 2331 (interactive) |
| 2332 (let ((width (string-to-int | 2332 (let ((width (string-to-number |
| 2333 (read-from-minibuffer | 2333 (read-from-minibuffer |
| 2334 (concat "Column width (" | 2334 (concat "Column width (" |
| 2335 (int-to-string (if ebrowse--long-display-flag | 2335 (int-to-string (if ebrowse--long-display-flag |
| 2336 ebrowse--decl-column | 2336 ebrowse--decl-column |
| 2337 ebrowse--column-width)) | 2337 ebrowse--column-width)) |
| 4311 | 4311 |
| 4312 (defun ebrowse-select-1st-to-9nth () | 4312 (defun ebrowse-select-1st-to-9nth () |
| 4313 "Select the nth entry in the list by the keys 1..9." | 4313 "Select the nth entry in the list by the keys 1..9." |
| 4314 (interactive) | 4314 (interactive) |
| 4315 (let* ((maxlin (count-lines (point-min) (point-max))) | 4315 (let* ((maxlin (count-lines (point-min) (point-max))) |
| 4316 (n (min maxlin (+ 2 (string-to-int (this-command-keys)))))) | 4316 (n (min maxlin (+ 2 (string-to-number (this-command-keys)))))) |
| 4317 (goto-line n) | 4317 (goto-line n) |
| 4318 (throw 'electric-buffer-menu-select (point)))) | 4318 (throw 'electric-buffer-menu-select (point)))) |
| 4319 | 4319 |
| 4320 | 4320 |
| 4321 (defun ebrowse-install-1-to-9-keys () | 4321 (defun ebrowse-install-1-to-9-keys () |