Mercurial > emacs
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 |