diff options
| author | Roland McGrath | 1994-06-28 20:24:38 +0000 |
|---|---|---|
| committer | Roland McGrath | 1994-06-28 20:24:38 +0000 |
| commit | 40ce92683ca3093a4f104f95a63cb549a9e9339d (patch) | |
| tree | 696e9970391ac5063a27054d91085232c54b32b3 | |
| parent | 63aeffd5a02f56220b61a4ccc0d9a26e01e11a03 (diff) | |
| download | emacs-40ce92683ca3093a4f104f95a63cb549a9e9339d.tar.gz emacs-40ce92683ca3093a4f104f95a63cb549a9e9339d.zip | |
(tag-exact-match-p): Fix typo in last change.
| -rw-r--r-- | lisp/progmodes/etags.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 808918ce9cd..5f4889477f9 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1150,7 +1150,7 @@ See documentation of variable `tags-file-name'." | |||
| 1150 | (defun tag-exact-match-p (tag) | 1150 | (defun tag-exact-match-p (tag) |
| 1151 | ;; The match is really exact if there is an explicit tag name. | 1151 | ;; The match is really exact if there is an explicit tag name. |
| 1152 | (or (and (eq (char-after (point)) ?\001) | 1152 | (or (and (eq (char-after (point)) ?\001) |
| 1153 | (eq (char-after (- (point) (length tag)) ?\177))) | 1153 | (eq (char-after (- (point) (length tag) 1)) ?\177)) |
| 1154 | ;; We are not on the explicit tag name, but perhaps it follows. | 1154 | ;; We are not on the explicit tag name, but perhaps it follows. |
| 1155 | (looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001")) | 1155 | (looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001")) |
| 1156 | ;; We also call it "exact" if it is surrounded by symbol boundaries. | 1156 | ;; We also call it "exact" if it is surrounded by symbol boundaries. |