Mercurial > emacs

comparison lisp/progmodes/cc-align.el @ 19296:885a72deec97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(c-lineup-java-throws): Change the `when' clause to an `if-progn'.
author Richard M. Stallman <rms@gnu.org>
date Mon, 11 Aug 1997 22:07:04 +0000
parents b573491d7c8f
children 3fa4862e07df
comparison
equal deleted inserted replaced
19295:812986c77ae2 19296:885a72deec97
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 ;; Maintainer: cc-mode-help@python.org 8 ;; Maintainer: cc-mode-help@python.org
9 ;; Created: 22-Apr-1997 (split from cc-mode.el) 9 ;; Created: 22-Apr-1997 (split from cc-mode.el)
10 ;; Version: 5.14 10 ;; Version: 5.15
11 ;; Keywords: c languages oop 11 ;; Keywords: c languages oop
12 12
13 ;; This file is part of GNU Emacs. 13 ;; This file is part of GNU Emacs.
14 14
15 ;; GNU Emacs is free software; you can redistribute it and/or modify 15 ;; GNU Emacs is free software; you can redistribute it and/or modify
144 (setq extra c-basic-offset)) 144 (setq extra c-basic-offset))
145 ((and (goto-char iopl) 145 ((and (goto-char iopl)
146 (looking-at "throws[ \t\n]")) 146 (looking-at "throws[ \t\n]"))
147 (forward-word 1) 147 (forward-word 1)
148 (skip-chars-forward " \t") 148 (skip-chars-forward " \t")
149 (when (eolp) 149 (if (eolp)
150 (back-to-indentation) 150 (progn
151 (setq extra c-basic-offset))) 151 (back-to-indentation)
152 (setq extra c-basic-offset))))
152 (t (goto-char iopl))) 153 (t (goto-char iopl)))
153 (+ (- (current-column) langelem-col) extra)))) 154 (+ (- (current-column) langelem-col) extra))))
154 155
155 (defun c-lineup-C-comments (langelem) 156 (defun c-lineup-C-comments (langelem)
156 ;; line up C block comment continuation lines 157 ;; line up C block comment continuation lines