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