comparison lisp/add-log.el @ 953:7c035a87c691

*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Mon, 10 Aug 1992 21:24:45 +0000
parents c23539669808
children b62886fbf2a7
comparison
equal deleted inserted replaced
952:ba6a993500d4 953:7c035a87c691
285 (skip-chars-forward " ,"))) 285 (skip-chars-forward " ,")))
286 (buffer-substring (point) 286 (buffer-substring (point)
287 (progn (forward-sexp 1) (point)))) 287 (progn (forward-sexp 1) (point))))
288 ;; Ordinary C function syntax. 288 ;; Ordinary C function syntax.
289 (setq beg (point)) 289 (setq beg (point))
290 (down-list 1) ; into arglist 290 (if (condition-case nil
291 (backward-up-list 1) 291 ;; Protect against "Unbalanced parens" error.
292 (skip-chars-backward " \t") 292 (progn
293 ;; Verify initial pos was after real start of function. 293 (down-list 1) ; into arglist
294 (if (and (save-excursion 294 (backward-up-list 1)
295 (goto-char beg) 295 (skip-chars-backward " \t")
296 ;; For this purpose, include the line 296 t)
297 ;; that has the decl keywords. 297 (error nil))
298 ;; This may also include some of the comments 298 ;; Verify initial pos was after
299 ;; before the function. 299 ;; real start of function.
300 (while (and (not (bobp)) 300 (if (and (save-excursion
301 (save-excursion 301 (goto-char beg)
302 (forward-line -1) 302 ;; For this purpose, include the line
303 (looking-at "[^\n\f]"))) 303 ;; that has the decl keywords. This
304 (forward-line -1)) 304 ;; may also include some of the
305 (>= location (point))) 305 ;; comments before the function.
306 ;; Consistency check: going down and up 306 (while (and (not (bobp))
307 ;; shouldn't take us back before BEG. 307 (save-excursion
308 (> (point) beg)) 308 (forward-line -1)
309 (buffer-substring (point) 309 (looking-at "[^\n\f]")))
310 (progn (backward-sexp 1) 310 (forward-line -1))
311 (point))))))))) 311 (>= location (point)))
312 ;; Consistency check: going down and up
313 ;; shouldn't take us back before BEG.
314 (> (point) beg))
315 (buffer-substring (point)
316 (progn (backward-sexp 1)
317 (point))))))))))
312 ((memq major-mode 318 ((memq major-mode
313 '(TeX-mode plain-TeX-mode LaTeX-mode;; tex-mode.el 319 '(TeX-mode plain-TeX-mode LaTeX-mode;; tex-mode.el
314 plain-tex-mode latex-mode;; cmutex.el 320 plain-tex-mode latex-mode;; cmutex.el
315 )) 321 ))
316 (if (re-search-backward 322 (if (re-search-backward