comparison lisp/progmodes/cc-cmds.el @ 77051:93765c8a2ed2

(c-end-of-defun): Tidy up, to eliminate byte-compiler warning "value unused".
author Alan Mackenzie <acm@muc.de>
date Sun, 08 Apr 2007 11:18:55 +0000
parents 831765c54f39
children e8bd3e011b64
comparison
equal deleted inserted replaced
77050:e6c7610dc10c 77051:93765c8a2ed2
1628 (progn 1628 (progn
1629 (if (memq where '(at-header outwith-function)) 1629 (if (memq where '(at-header outwith-function))
1630 (setq arg (1+ arg))) 1630 (setq arg (1+ arg)))
1631 (if (< arg 0) 1631 (if (< arg 0)
1632 (setq arg (c-backward-to-nth-BOF-{ (- arg) where))) 1632 (setq arg (c-backward-to-nth-BOF-{ (- arg) where)))
1633 (when (and (= arg 0) 1633 (if (= arg 0)
1634 (c-syntactic-skip-backward "^}") 1634 (c-syntactic-skip-backward "^}")))
1635 (eq (char-before) ?\}))
1636 t))
1637 1635
1638 ;; Move forward to the } of a function 1636 ;; Move forward to the } of a function
1639 (if (> arg 0) 1637 (if (> arg 0)
1640 (setq arg (c-forward-to-nth-EOF-} arg where)))) 1638 (setq arg (c-forward-to-nth-EOF-} arg where))))
1641 1639