Mercurial > emacs
comparison lisp/progmodes/ebrowse.el @ 49885:26b440503b1b
(ebrowse-show-file-name-at-point): Remove useless check.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 20 Feb 2003 17:06:53 +0000 |
| parents | c62a92d62ebe |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 49884:6e26943fda98 | 49885:26b440503b1b |
|---|---|
| 1293 (ebrowse-output | 1293 (ebrowse-output |
| 1294 (dotimes (i prefix) | 1294 (dotimes (i prefix) |
| 1295 (let ((tree (ebrowse-tree-at-point)) | 1295 (let ((tree (ebrowse-tree-at-point)) |
| 1296 start | 1296 start |
| 1297 file-name-existing) | 1297 file-name-existing) |
| 1298 (unless tree return) | |
| 1299 (beginning-of-line) | 1298 (beginning-of-line) |
| 1300 (skip-chars-forward " \t*a-zA-Z0-9_") | 1299 (skip-chars-forward " \t*a-zA-Z0-9_") |
| 1301 (setq start (point) | 1300 (setq start (point) |
| 1302 file-name-existing (looking-at "(")) | 1301 file-name-existing (looking-at "(")) |
| 1303 (delete-region start (save-excursion (end-of-line) (point))) | 1302 (delete-region start (save-excursion (end-of-line) (point))) |