aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2012-02-21 15:48:13 +0100
committerJuanma Barranquero2012-02-21 15:48:13 +0100
commit3fe58f4f9ce7c49006b8e5305711ab6a90215091 (patch)
treed80cd3d65b19a6483256b251cb44b97c1bc8da0f
parenta59225b146620b11455b614244ceb6d02339a032 (diff)
downloademacs-3fe58f4f9ce7c49006b8e5305711ab6a90215091.tar.gz
emacs-3fe58f4f9ce7c49006b8e5305711ab6a90215091.zip
lisp/newcomment.el (uncomment-region-default): Remove unused binding.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/newcomment.el6
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5cb9afc1311..af4d233e2d6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12012-02-21 Juanma Barranquero <lekktu@gmail.com>
2
3 * newcomment.el (uncomment-region-default): Remove unused binding.
4
12012-02-21 Glenn Morris <rgm@gnu.org> 52012-02-21 Glenn Morris <rgm@gnu.org>
2 6
3 * textmodes/picture.el (picture-motion, picture-motion-reverse) 7 * textmodes/picture.el (picture-motion, picture-motion-reverse)
diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 16282af6409..41b5041ded5 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -224,7 +224,7 @@ ALIGN specifies that the `comment-end' markers should be aligned.
224 /* bli */ 224 /* bli */
225 if `comment-end' is empty, this has no effect, unless EXTRA is also set, 225 if `comment-end' is empty, this has no effect, unless EXTRA is also set,
226 in which case the comment gets wrapped in a box. 226 in which case the comment gets wrapped in a box.
227 227
228EXTRA specifies that an extra line should be used before and after the 228EXTRA specifies that an extra line should be used before and after the
229 region to comment (to put the `comment-end' and `comment-start'). 229 region to comment (to put the `comment-end' and `comment-start').
230 e.g. in C it comments regions as 230 e.g. in C it comments regions as
@@ -872,8 +872,8 @@ comment markers."
872 (when (and sre (looking-at (concat "\\s-*\n\\s-*" srei))) 872 (when (and sre (looking-at (concat "\\s-*\n\\s-*" srei)))
873 (goto-char (match-end 0))) 873 (goto-char (match-end 0)))
874 (if (null arg) (delete-region (point-min) (point)) 874 (if (null arg) (delete-region (point-min) (point))
875 (let* ((opoint (point-marker)) 875 (let ((opoint (point-marker)))
876 (nchar (skip-syntax-backward " "))) 876 (skip-syntax-backward " ")
877 (delete-char (- numarg)) 877 (delete-char (- numarg))
878 (unless (and (not (bobp)) 878 (unless (and (not (bobp))
879 (save-excursion (goto-char (point-min)) 879 (save-excursion (goto-char (point-min))