Mercurial > hg > xemacs-beta

comparison lisp/modes/cc-mode.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 7e54bd776075
children 05472e90ae02
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
4 4
5 ;; Authors: 1992-1997 Barry A. Warsaw 5 ;; Authors: 1992-1997 Barry A. Warsaw
6 ;; 1987 Dave Detlefs and Stewart Clamen 6 ;; 1987 Dave Detlefs and Stewart Clamen
7 ;; 1985 Richard M. Stallman 7 ;; 1985 Richard M. Stallman
8 ;; Created: a long, long, time ago. adapted from the original c-mode.el 8 ;; Created: a long, long, time ago. adapted from the original c-mode.el
9 ;; Version: 4.387 9 ;; Version: 4.388
10 ;; Last Modified: 1997/03/21 20:25:33 10 ;; Last Modified: 1997/03/25 03:19:17
11 ;; Keywords: c languages oop 11 ;; Keywords: c languages oop
12 12
13 ;; NOTE: Read the commentary below for the right way to submit bug reports! 13 ;; NOTE: Read the commentary below for the right way to submit bug reports!
14 ;; NOTE: See the accompanying texinfo manual for details on using this mode! 14 ;; NOTE: See the accompanying texinfo manual for details on using this mode!
15 15
4048 (and (bobp) 4048 (and (bobp)
4049 (c-forward-syntactic-ws indent-point)) 4049 (c-forward-syntactic-ws indent-point))
4050 (if (looking-at "typedef[^_]") 4050 (if (looking-at "typedef[^_]")
4051 (progn (forward-sexp 1) 4051 (progn (forward-sexp 1)
4052 (c-forward-syntactic-ws indent-point))) 4052 (c-forward-syntactic-ws indent-point)))
4053 (setq placeholder (c-point 'bol)) 4053 (setq placeholder (c-point 'boi))
4054 (and (or (looking-at "enum[ \t\n]+") 4054 (and (or (looking-at "enum[ \t\n]+")
4055 (= char-before-ip ?=)) 4055 (= char-before-ip ?=))
4056 (save-excursion 4056 (save-excursion
4057 (skip-chars-forward "^;(" indent-point) 4057 (skip-chars-forward "^;(" indent-point)
4058 (not (memq (following-char) '(?\; ?\())) 4058 (not (memq (following-char) '(?\; ?\()))
5201 (progn (skip-chars-backward " \t") (point))))))) 5201 (progn (skip-chars-backward " \t") (point)))))))
5202 5202
5203 5203
5204 ;; defuns for submitting bug reports 5204 ;; defuns for submitting bug reports
5205 5205
5206 (defconst c-version "4.387" 5206 (defconst c-version "4.388"
5207 "CC Mode version number.") 5207 "CC Mode version number.")
5208 (defconst c-mode-help-address 5208 (defconst c-mode-help-address
5209 "bug-gnu-emacs@prep.ai.mit.edu, cc-mode-help@python.org" 5209 "bug-gnu-emacs@prep.ai.mit.edu, cc-mode-help@python.org"
5210 "Address for CC Mode bug reports.") 5210 "Address for CC Mode bug reports.")
5211 5211