Mercurial > emacs
comparison lisp/progmodes/etags.el @ 48297:4033e7aa06a8
(find-tag-default): Copy text at point without properties.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 14 Nov 2002 07:16:14 +0000 |
| parents | eb2e18d1144b |
| children | ee509ddc7a03 |
comparison
equal
deleted
inserted
replaced
| 48296:830d1dc661e0 | 48297:4033e7aa06a8 |
|---|---|
| 774 t) | 774 t) |
| 775 (re-search-forward "\\(\\sw\\|\\s_\\)+" | 775 (re-search-forward "\\(\\sw\\|\\s_\\)+" |
| 776 (save-excursion (end-of-line) (point)) | 776 (save-excursion (end-of-line) (point)) |
| 777 t)) | 777 t)) |
| 778 (progn (goto-char (match-end 0)) | 778 (progn (goto-char (match-end 0)) |
| 779 (buffer-substring (point) | 779 (buffer-substring-no-properties |
| 780 (progn (forward-sexp -1) | 780 (point) |
| 781 (while (looking-at "\\s'") | 781 (progn (forward-sexp -1) |
| 782 (forward-char 1)) | 782 (while (looking-at "\\s'") |
| 783 (point)))) | 783 (forward-char 1)) |
| 784 (point)))) | |
| 784 nil))) | 785 nil))) |
| 785 | 786 |
| 786 ;; Read a tag name from the minibuffer with defaulting and completion. | 787 ;; Read a tag name from the minibuffer with defaulting and completion. |
| 787 (defun find-tag-tag (string) | 788 (defun find-tag-tag (string) |
| 788 (let* ((completion-ignore-case (if (memq tags-case-fold-search '(t nil)) | 789 (let* ((completion-ignore-case (if (memq tags-case-fold-search '(t nil)) |