Mercurial > emacs

comparison lisp/progmodes/cc-defs.el @ 83554:b8d9a391daf3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-599 Merge from erc--main--0 * emacs@sv.gnu.org/emacs--devo--0--patch-600 Merge from erc--main--0 * emacs@sv.gnu.org/emacs--devo--0--patch-601 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-602 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-603 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-604 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-605 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-606 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-607 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-608 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-609 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-610 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-611 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-612 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-613 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-614 Make byte compiler correctly write circular constants * emacs@sv.gnu.org/emacs--devo--0--patch-615 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-616 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-617 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-618 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-192 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-193 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-194 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-195 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-196 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-594
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 29 Jan 2007 22:21:19 +0000
parents e3694f1cb928
children b48c6cc5f648 95d0cdf160ea
comparison
equal deleted inserted replaced
83553:32073cbc5eb6 83554:b8d9a391daf3
1 ;;; cc-defs.el --- compile time definitions for CC Mode 1 ;;; cc-defs.el --- compile time definitions for CC Mode
2 2
3 ;; Copyright (C) 1985, 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 3 ;; Copyright (C) 1985, 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
4 ;; 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software 4 ;; 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
5 ;; Foundation, Inc. 5 ;; Free Software Foundation, Inc.
6 6
7 ;; Authors: 1998- Martin Stjernholm 7 ;; Authors: 2003- Alan Mackenzie
8 ;; 1998- Martin Stjernholm
8 ;; 1992-1999 Barry A. Warsaw 9 ;; 1992-1999 Barry A. Warsaw
9 ;; 1987 Dave Detlefs and Stewart Clamen 10 ;; 1987 Dave Detlefs and Stewart Clamen
10 ;; 1985 Richard M. Stallman 11 ;; 1985 Richard M. Stallman
11 ;; Maintainer: bug-cc-mode@gnu.org 12 ;; Maintainer: bug-cc-mode@gnu.org
12 ;; Created: 22-Apr-1997 (split from cc-mode.el) 13 ;; Created: 22-Apr-1997 (split from cc-mode.el)
576 res))) 577 res)))
577 578
578 579
579 ;; Wrappers for common scan-lists cases, mainly because it's almost 580 ;; Wrappers for common scan-lists cases, mainly because it's almost
580 ;; impossible to get a feel for how that function works. 581 ;; impossible to get a feel for how that function works.
582
583 (defmacro c-go-list-forward ()
584 "Move backward across one balanced group of parentheses.
585
586 Return POINT when we succeed, NIL when we fail. In the latter case, leave
587 point unmoved."
588 `(c-safe (let ((endpos (scan-lists (point) 1 0)))
589 (goto-char endpos)
590 endpos)))
591
592 (defmacro c-go-list-backward ()
593 "Move backward across one balanced group of parentheses.
594
595 Return POINT when we succeed, NIL when we fail. In the latter case, leave
596 point unmoved."
597 `(c-safe (let ((endpos (scan-lists (point) -1 0)))
598 (goto-char endpos)
599 endpos)))
581 600
582 (defmacro c-up-list-forward (&optional pos limit) 601 (defmacro c-up-list-forward (&optional pos limit)
583 "Return the first position after the list sexp containing POS, 602 "Return the first position after the list sexp containing POS,
584 or nil if no such position exists. The point is used if POS is left out. 603 or nil if no such position exists. The point is used if POS is left out.
585 604