diff options
| author | Eric S. Raymond | 1991-12-09 04:28:44 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 1991-12-09 04:28:44 +0000 |
| commit | a7a50f69a016a687449acbf138eb5bfc3ce527c2 (patch) | |
| tree | c242a8501adcd519561fc4b50aac2a65166a1410 | |
| parent | ff704742cd978602a4b7c8b7cca0d0ae4d5f2cf8 (diff) | |
| download | emacs-a7a50f69a016a687449acbf138eb5bfc3ce527c2.tar.gz emacs-a7a50f69a016a687449acbf138eb5bfc3ce527c2.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/progmodes/etags.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 15181e899d7..c5d39891dbc 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -146,9 +146,9 @@ File names returned are absolute." | |||
| 146 | (setq tagname last-tag)) | 146 | (setq tagname last-tag)) |
| 147 | (setq last-tag tagname) | 147 | (setq last-tag tagname) |
| 148 | (while (progn | 148 | (while (progn |
| 149 | (if (not (search-forward | 149 | (if (not (if exact |
| 150 | (if exact (concat tagname "(") tagname) | 150 | (re-search-forward (concat "\\W" tagname "\\W") nil t) |
| 151 | nil t)) | 151 | (search-forward tagname nil t))) |
| 152 | (error "No %sentries containing %s" | 152 | (error "No %sentries containing %s" |
| 153 | (if next "more " "") tagname)) | 153 | (if next "more " "") tagname)) |
| 154 | (not (looking-at "[^\n\177]*\177")))) | 154 | (not (looking-at "[^\n\177]*\177")))) |