Mercurial > emacs
comparison lisp/emacs-lisp/lisp.el @ 6396:1740ec160ff8
(end-of-defun): Fix check for trailing comment.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 18 Mar 1994 01:47:28 +0000 |
| parents | 881009b034b3 |
| children | 70bf65b6aae9 |
comparison
equal
deleted
inserted
replaced
| 6395:6240067bfe33 | 6396:1740ec160ff8 |
|---|---|
| 182 (if (>= (point) pos) | 182 (if (>= (point) pos) |
| 183 (if (beginning-of-defun 2) | 183 (if (beginning-of-defun 2) |
| 184 (progn | 184 (progn |
| 185 (forward-list 1) | 185 (forward-list 1) |
| 186 (skip-chars-forward " \t") | 186 (skip-chars-forward " \t") |
| 187 (if (looking-at "[;\n]") | 187 (if (looking-at "\\s<\\|\n") |
| 188 (forward-line 1))) | 188 (forward-line 1))) |
| 189 (goto-char (point-min))))) | 189 (goto-char (point-min))))) |
| 190 (setq arg (1+ arg))))) | 190 (setq arg (1+ arg))))) |
| 191 | 191 |
| 192 (defun mark-defun () | 192 (defun mark-defun () |