Mercurial > emacs
comparison lisp/progmodes/etags.el @ 56556:8699eccc1a33
(etags-tags-apropos): Show building progress.
author | Masatake YAMATO <jet@gyve.org> |
---|---|
date | Wed, 28 Jul 2004 09:05:23 +0000 |
parents | 7c48b959658d |
children | 12cc6bc5d550 0bdb5a16ae51 |
comparison
equal
deleted
inserted
replaced
56555:e7ddaefbeaa4 | 56556:8699eccc1a33 |
---|---|
1451 (when tags-apropos-verbose | 1451 (when tags-apropos-verbose |
1452 (princ "Tags in file `") | 1452 (princ "Tags in file `") |
1453 (tags-with-face 'highlight (princ buffer-file-name)) | 1453 (tags-with-face 'highlight (princ buffer-file-name)) |
1454 (princ "':\n\n")) | 1454 (princ "':\n\n")) |
1455 (goto-char (point-min)) | 1455 (goto-char (point-min)) |
1456 (while (re-search-forward string nil t) | 1456 (let ((point-max (/ (float (point-max)) 100.0))) |
1457 (beginning-of-line) | 1457 (while (re-search-forward string nil t) |
1458 | 1458 (message "Making tags apropos buffer for `%s'...%d%%" |
1459 (let* (;; Get the local value in the tags table | 1459 string |
1460 ;; buffer before switching buffers. | 1460 (/ (point) point-max)) |
1461 (goto-func goto-tag-location-function) | 1461 (beginning-of-line) |
1462 (tag-info (save-excursion (funcall snarf-tag-function))) | 1462 |
1463 (tag (if (eq t (car tag-info)) nil (car tag-info))) | 1463 (let* ( ;; Get the local value in the tags table |
1464 (file-path (save-excursion (if tag (file-of-tag) | 1464 ;; buffer before switching buffers. |
1465 (save-excursion (next-line 1) | 1465 (goto-func goto-tag-location-function) |
1466 (file-of-tag))))) | 1466 (tag-info (save-excursion (funcall snarf-tag-function))) |
1467 (file-label (if tag (file-of-tag t) | 1467 (tag (if (eq t (car tag-info)) nil (car tag-info))) |
1468 (save-excursion (next-line 1) | 1468 (file-path (save-excursion (if tag (file-of-tag) |
1469 (file-of-tag t)))) | 1469 (save-excursion (next-line 1) |
1470 (pt (with-current-buffer standard-output (point)))) | 1470 (file-of-tag))))) |
1471 (if tag | 1471 (file-label (if tag (file-of-tag t) |
1472 (progn | 1472 (save-excursion (next-line 1) |
1473 (princ (format "[%s]: " file-label)) | 1473 (file-of-tag t)))) |
1474 (princ tag) | 1474 (pt (with-current-buffer standard-output (point)))) |
1475 (when (= (aref tag 0) ?\() (princ " ...)")) | 1475 (if tag |
1476 (with-current-buffer standard-output | 1476 (progn |
1477 (make-text-button pt (point) | 1477 (princ (format "[%s]: " file-label)) |
1478 'tag-info tag-info | 1478 (princ tag) |
1479 'file-path file-path | 1479 (when (= (aref tag 0) ?\() (princ " ...)")) |
1480 'goto-func goto-func | 1480 (with-current-buffer standard-output |
1481 'action (lambda (button) | 1481 (make-text-button pt (point) |
1482 (let ((tag-info (button-get button 'tag-info)) | 1482 'tag-info tag-info |
1483 (goto-func (button-get button 'goto-func))) | 1483 'file-path file-path |
1484 (tag-find-file-of-tag (button-get button 'file-path)) | 1484 'goto-func goto-func |
1485 (widen) | 1485 'action (lambda (button) |
1486 (funcall goto-func tag-info))) | 1486 (let ((tag-info (button-get button 'tag-info)) |
1487 'face 'tags-tag-face | 1487 (goto-func (button-get button 'goto-func))) |
1488 'type 'button))) | 1488 (tag-find-file-of-tag (button-get button 'file-path)) |
1489 (princ (format "- %s" file-label)) | 1489 (widen) |
1490 (with-current-buffer standard-output | 1490 (funcall goto-func tag-info))) |
1491 (make-text-button pt (point) | 1491 'face 'tags-tag-face |
1492 'file-path file-path | 1492 'type 'button))) |
1493 'action (lambda (button) | 1493 (princ (format "- %s" file-label)) |
1494 (tag-find-file-of-tag (button-get button 'file-path)) | 1494 (with-current-buffer standard-output |
1495 ;; Get the local value in the tags table | 1495 (make-text-button pt (point) |
1496 ;; buffer before switching buffers. | 1496 'file-path file-path |
1497 (goto-char (point-min))) | 1497 'action (lambda (button) |
1498 'face 'tags-tag-face | 1498 (tag-find-file-of-tag (button-get button 'file-path)) |
1499 'type 'button)) | 1499 ;; Get the local value in the tags table |
1500 )) | 1500 ;; buffer before switching buffers. |
1501 (terpri) | 1501 (goto-char (point-min))) |
1502 (forward-line 1)) | 1502 'face 'tags-tag-face |
1503 'type 'button)) | |
1504 )) | |
1505 (terpri) | |
1506 (forward-line 1)) | |
1507 (message nil)) | |
1503 (when tags-apropos-verbose (princ "\n"))) | 1508 (when tags-apropos-verbose (princ "\n"))) |
1504 | 1509 |
1505 (defun etags-tags-table-files () | 1510 (defun etags-tags-table-files () |
1506 (let ((files nil) | 1511 (let ((files nil) |
1507 beg) | 1512 beg) |