Mercurial > emacs
comparison lisp/add-log.el @ 5301:7caf06258d7b
(add-log-current-defun):
Remove spurious quote on c++-mode. Recognize c++-c-mode.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 23 Dec 1993 04:42:26 +0000 |
parents | 60fa14264c3b |
children | cbc904743f16 |
comparison
equal
deleted
inserted
replaced
5300:954744cd720f | 5301:7caf06258d7b |
---|---|
314 (forward-char 1)) | 314 (forward-char 1)) |
315 (forward-sexp 1) | 315 (forward-sexp 1) |
316 (skip-chars-forward " ") | 316 (skip-chars-forward " ") |
317 (buffer-substring (point) | 317 (buffer-substring (point) |
318 (progn (forward-sexp 1) (point)))))) | 318 (progn (forward-sexp 1) (point)))))) |
319 ((and (memq major-mode '(c-mode 'c++-mode)) | 319 ((and (memq major-mode '(c-mode c++-mode c++-c-mode)) |
320 (save-excursion (beginning-of-line) | 320 (save-excursion (beginning-of-line) |
321 ;; Use eq instead of = here to avoid | 321 ;; Use eq instead of = here to avoid |
322 ;; error when at bob and char-after | 322 ;; error when at bob and char-after |
323 ;; returns nil. | 323 ;; returns nil. |
324 (while (eq (char-after (- (point) 2)) ?\\) | 324 (while (eq (char-after (- (point) 2)) ?\\) |
330 (forward-line -1)) | 330 (forward-line -1)) |
331 (search-forward "define") | 331 (search-forward "define") |
332 (skip-chars-forward " \t") | 332 (skip-chars-forward " \t") |
333 (buffer-substring (point) | 333 (buffer-substring (point) |
334 (progn (forward-sexp 1) (point)))) | 334 (progn (forward-sexp 1) (point)))) |
335 ((memq major-mode '(c-mode 'c++-mode)) | 335 ((memq major-mode '(c-mode c++-mode c++-c-mode)) |
336 (beginning-of-line) | 336 (beginning-of-line) |
337 ;; See if we are in the beginning part of a function, | 337 ;; See if we are in the beginning part of a function, |
338 ;; before the open brace. If so, advance forward. | 338 ;; before the open brace. If so, advance forward. |
339 (while (not (looking-at "{\\|\\(\\s *$\\)")) | 339 (while (not (looking-at "{\\|\\(\\s *$\\)")) |
340 (forward-line 1)) | 340 (forward-line 1)) |