Mercurial > emacs
changeset 10429:c37ee605ba79
(etags-tags-completion-table): Don't let match string contain a \177.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sun, 15 Jan 1995 09:43:29 +0000 |
| parents | 08876628ef14 |
| children | 3499c4e1e82f |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Sat Jan 14 03:10:53 1995 +0000 +++ b/lisp/progmodes/etags.el Sun Jan 15 09:43:29 1995 +0000 @@ -1,6 +1,6 @@ ;;; etags.el --- etags facility for Emacs -;; Copyright (C) 1985, 1986, 1988, 1989, 1992, 1993, 1994 +;; Copyright (C) 1985, 1986, 1988, 1989, 1992, 1993, 1994, 1995 ;; Free Software Foundation, Inc. ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> @@ -998,8 +998,8 @@ ;; \6 is the line to start searching at; ;; \7 is the char to start searching at. (while (re-search-forward - "^\\(\\(.+[^-a-zA-Z0-9_$]+\\)?\\([-a-zA-Z0-9_$?:]+\\)\ -\[^-a-zA-Z0-9_$?:]*\\)\177\\(\\([^\n\001]+\\)\001\\)?\ + "^\\(\\([^\177]+[^-a-zA-Z0-9_$\177]+\\)?\\([-a-zA-Z0-9_$?:]+\\)\ +\[^-a-zA-Z0-9_$?:\177]*\\)\177\\(\\([^\n\001]+\\)\001\\)?\ \\([0-9]+\\)?,\\([0-9]+\\)?\n" nil t) (intern (if (match-beginning 5)