Mercurial > emacs
comparison lisp/progmodes/asm-mode.el @ 90203:187d6a1f84f7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 485-492)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 92-94)
- Merge from emacs--cvs-trunk--0
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 22 Jul 2005 08:27:27 +0000 |
| parents | f9a65d7ebd29 f0ee06ae643c |
| children | edf295560b5a |
comparison
equal
deleted
inserted
replaced
| 90202:7597b4a23c3b | 90203:187d6a1f84f7 |
|---|---|
| 202 (interactive) | 202 (interactive) |
| 203 (comment-normalize-vars) | 203 (comment-normalize-vars) |
| 204 (let (comempty comment) | 204 (let (comempty comment) |
| 205 (save-excursion | 205 (save-excursion |
| 206 (beginning-of-line) | 206 (beginning-of-line) |
| 207 (setq comment (comment-search-forward (line-end-position) t)) | 207 (with-no-warnings |
| 208 (setq comment (comment-search-forward (line-end-position) t))) | |
| 208 (setq comempty (looking-at "[ \t]*$"))) | 209 (setq comempty (looking-at "[ \t]*$"))) |
| 209 | 210 |
| 210 (cond | 211 (cond |
| 211 | 212 |
| 212 ;; Blank line? Then start comment at code indent level. | 213 ;; Blank line? Then start comment at code indent level. |