Mercurial > emacs
comparison lisp/progmodes/icon.el @ 30947:3e2633195694
(icon-indent-line)
(icon-is-continuation-line): Handle comments specially.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 18 Aug 2000 06:29:14 +0000 |
parents | f3f9df46d008 |
children | d218ef159e45 |
comparison
equal
deleted
inserted
replaced
30946:0cc084d7b4a7 | 30947:3e2633195694 |
---|---|
293 (pos (- (point-max) (point)))) | 293 (pos (- (point-max) (point)))) |
294 (beginning-of-line) | 294 (beginning-of-line) |
295 (setq beg (point)) | 295 (setq beg (point)) |
296 (cond ((eq indent nil) | 296 (cond ((eq indent nil) |
297 (setq indent (current-indentation))) | 297 (setq indent (current-indentation))) |
298 ((looking-at "[ \t]*#") | 298 ((looking-at "^#") |
299 (setq indent 0)) | 299 (setq indent 0)) |
300 (t | 300 (t |
301 (skip-chars-forward " \t") | 301 (skip-chars-forward " \t") |
302 (if (listp indent) (setq indent (car indent))) | 302 (if (listp indent) (setq indent (car indent))) |
303 (cond ((and (looking-at "else\\b") | 303 (cond ((and (looking-at "else\\b") |
430 (if (eq ch-syntax ?w) | 430 (if (eq ch-syntax ?w) |
431 (assoc (buffer-substring | 431 (assoc (buffer-substring |
432 (progn (forward-word -1) (point)) | 432 (progn (forward-word -1) (point)) |
433 (progn (forward-word 1) (point))) | 433 (progn (forward-word 1) (point))) |
434 icon-resword-alist) | 434 icon-resword-alist) |
435 (not (memq ch '(0 ?\; ?\} ?\{ ?\) ?\] ?\" ?\' ?\n)))))) | 435 (not (memq ch '(0 ?\; ?\} ?\{ ?\) ?\] ?\" ?\' ?\# ?\, ?\. ?\n)))))) |
436 | 436 |
437 (defun icon-backward-to-noncomment (lim) | 437 (defun icon-backward-to-noncomment (lim) |
438 (let (opoint stop) | 438 (let (opoint stop) |
439 (while (not stop) | 439 (while (not stop) |
440 (skip-chars-backward " \t\n\f" lim) | 440 (skip-chars-backward " \t\n\f" lim) |