diff options
| author | Stefan Monnier | 2011-09-14 17:21:59 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2011-09-14 17:21:59 -0400 |
| commit | 1b8b395447e2c4d417e98ec1656e357b15ecadeb (patch) | |
| tree | 6b459d0712e179378736bfb80bf11c2de1a04e31 | |
| parent | d3c309545b668fd69fea7d324ece194018e9d224 (diff) | |
| download | emacs-1b8b395447e2c4d417e98ec1656e357b15ecadeb.tar.gz emacs-1b8b395447e2c4d417e98ec1656e357b15ecadeb.zip | |
* newcomment.el (comment-add, comment-valid-prefix-p): Docfix.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/newcomment.el | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aa8eddae085..975cd34ba60 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2011-09-14 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2011-09-14 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * newcomment.el (comment-add, comment-valid-prefix-p): Docfix. | ||
| 4 | |||
| 3 | * mpc.el (mpc-constraints-tag-lookup): New function. | 5 | * mpc.el (mpc-constraints-tag-lookup): New function. |
| 4 | (mpc-constraints-restore): Use it to make jumping to "album=Foo" apply | 6 | (mpc-constraints-restore): Use it to make jumping to "album=Foo" apply |
| 5 | also to browser "album|playlist". | 7 | also to browser "album|playlist". |
diff --git a/lisp/newcomment.el b/lisp/newcomment.el index a1d77ccc6e0..8c0d7b25939 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el | |||
| @@ -987,8 +987,8 @@ indentation to be kept as it was before narrowing." | |||
| 987 | (setq ,bindent (- ,bindent n))))))))))) | 987 | (setq ,bindent (- ,bindent n))))))))))) |
| 988 | 988 | ||
| 989 | (defun comment-add (arg) | 989 | (defun comment-add (arg) |
| 990 | "Compute the number of extra comment starter characters | 990 | "Compute the number of extra comment starter characters. |
| 991 | \(extra semicolons in Lisp mode, extra stars in C mode, etc.) | 991 | \(Extra semicolons in Lisp mode, extra stars in C mode, etc.) |
| 992 | If ARG is non-nil, just follow ARG. | 992 | If ARG is non-nil, just follow ARG. |
| 993 | If the comment starter is multi-char, just follow ARG. | 993 | If the comment starter is multi-char, just follow ARG. |
| 994 | Otherwise obey `comment-add'." | 994 | Otherwise obey `comment-add'." |
| @@ -1243,7 +1243,7 @@ This has no effect in modes that do not define a comment syntax." | |||
| 1243 | :group 'comment) | 1243 | :group 'comment) |
| 1244 | 1244 | ||
| 1245 | (defun comment-valid-prefix-p (prefix compos) | 1245 | (defun comment-valid-prefix-p (prefix compos) |
| 1246 | "Check that the adaptive-fill-prefix is consistent with the context. | 1246 | "Check that the adaptive fill prefix is consistent with the context. |
| 1247 | PREFIX is the prefix (presumably guessed by `adaptive-fill-mode'). | 1247 | PREFIX is the prefix (presumably guessed by `adaptive-fill-mode'). |
| 1248 | COMPOS is the position of the beginning of the comment we're in, or nil | 1248 | COMPOS is the position of the beginning of the comment we're in, or nil |
| 1249 | if we're not inside a comment." | 1249 | if we're not inside a comment." |