1794 |
search-end (nth 0 paren-state))) |
search-end (nth 0 paren-state))) |
1795 |
;; if search-end is nil, or if the search-end character isn't an |
;; if search-end is nil, or if the search-end character isn't an |
1796 |
;; open brace, we are definitely not in a class |
;; open brace, we are definitely not in a class |
1797 |
(if (or (not search-end) |
(when (consp search-end) |
1798 |
(< search-end (point-min)) |
(setq search-end (car search-end))) |
1799 |
(not (eq (char-after search-end) ?{))) |
(unless (or (not search-end) |
1800 |
nil |
(< search-end (point-min)) |
1801 |
|
(not (eq (char-after search-end) ?{))) |
1802 |
;; now, we need to look more closely at search-start. if |
;; now, we need to look more closely at search-start. if |
1803 |
;; search-start is nil, then our start boundary is really |
;; search-start is nil, then our start boundary is really |
1804 |
;; point-min. |
;; point-min. |