diff options
| author | Dan Nicolaescu | 2008-12-18 09:24:20 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2008-12-18 09:24:20 +0000 |
| commit | 3976387b54c5367c160cb329a83fa26784ea37f9 (patch) | |
| tree | b08ad3843a5c5a5035afe70c8873aa38834a5e3f | |
| parent | fd95644b937fb3e6e1285b21c2fc1ab901199e87 (diff) | |
| download | emacs-3976387b54c5367c160cb329a83fa26784ea37f9.tar.gz emacs-3976387b54c5367c160cb329a83fa26784ea37f9.zip | |
(comment-style): Default to `indent'. (Bug#1589)
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/newcomment.el | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0c06b012fd6..05b299e2fa8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2008-12-18 Dan Nicolaescu <dann@ics.uci.edu> | 1 | 2008-12-18 Dan Nicolaescu <dann@ics.uci.edu> |
| 2 | 2 | ||
| 3 | * newcomment.el (comment-style): Default to `indent'. (Bug#1153) | ||
| 4 | |||
| 3 | * startup.el (command-line): Do not mention the server name in | 5 | * startup.el (command-line): Do not mention the server name in |
| 4 | case the user has not mentioned it, print a more explicit message. | 6 | case the user has not mentioned it, print a more explicit message. |
| 5 | 7 | ||
diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 91ece5aa2fa..4750676caf3 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el | |||
| @@ -207,13 +207,14 @@ If INDENT is `multi-char', that means indent multi-character | |||
| 207 | comment starters, but not one-character comment starters.") | 207 | comment starters, but not one-character comment starters.") |
| 208 | 208 | ||
| 209 | ;;;###autoload | 209 | ;;;###autoload |
| 210 | (defcustom comment-style 'indent-or-triple | 210 | (defcustom comment-style 'indent |
| 211 | "Style to be used for `comment-region'. | 211 | "Style to be used for `comment-region'. |
| 212 | See `comment-styles' for a list of available styles." | 212 | See `comment-styles' for a list of available styles." |
| 213 | :type (if (boundp 'comment-styles) | 213 | :type (if (boundp 'comment-styles) |
| 214 | `(choice ,@(mapcar (lambda (s) `(const ,(car s))) | 214 | `(choice ,@(mapcar (lambda (s) `(const ,(car s))) |
| 215 | comment-styles)) | 215 | comment-styles)) |
| 216 | 'symbol) | 216 | 'symbol) |
| 217 | :version "23.1" | ||
| 217 | :group 'comment) | 218 | :group 'comment) |
| 218 | 219 | ||
| 219 | ;;;###autoload | 220 | ;;;###autoload |