Mercurial > emacs
diff lisp/progmodes/cc-engine.el @ 46688:07e19a2737a1
(c-search-uplist-for-classkey): When `search-end' is a cons, use its car.
author | Sam Steingold <sds@gnu.org> |
---|---|
date | Thu, 25 Jul 2002 13:23:27 +0000 |
parents | 17fef404cef1 |
children | 35f3b5d4f918 |
line wrap: on
line diff
--- a/lisp/progmodes/cc-engine.el Thu Jul 25 11:15:07 2002 +0000 +++ b/lisp/progmodes/cc-engine.el Thu Jul 25 13:23:27 2002 +0000 @@ -1794,10 +1794,11 @@ search-end (nth 0 paren-state))) ;; if search-end is nil, or if the search-end character isn't an ;; open brace, we are definitely not in a class - (if (or (not search-end) - (< search-end (point-min)) - (not (eq (char-after search-end) ?{))) - nil + (when (consp search-end) + (setq search-end (car search-end))) + (unless (or (not search-end) + (< search-end (point-min)) + (not (eq (char-after search-end) ?{))) ;; now, we need to look more closely at search-start. if ;; search-start is nil, then our start boundary is really ;; point-min.