From 3fe58f4f9ce7c49006b8e5305711ab6a90215091 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 21 Feb 2012 15:48:13 +0100 Subject: [PATCH] lisp/newcomment.el (uncomment-region-default): Remove unused binding. --- lisp/ChangeLog | 4 ++++ lisp/newcomment.el | 6 +++--- 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 @@ +2012-02-21 Juanma Barranquero + + * newcomment.el (uncomment-region-default): Remove unused binding. + 2012-02-21 Glenn Morris * 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. /* bli */ if `comment-end' is empty, this has no effect, unless EXTRA is also set, in which case the comment gets wrapped in a box. - + EXTRA specifies that an extra line should be used before and after the region to comment (to put the `comment-end' and `comment-start'). e.g. in C it comments regions as @@ -872,8 +872,8 @@ comment markers." (when (and sre (looking-at (concat "\\s-*\n\\s-*" srei))) (goto-char (match-end 0))) (if (null arg) (delete-region (point-min) (point)) - (let* ((opoint (point-marker)) - (nchar (skip-syntax-backward " "))) + (let ((opoint (point-marker))) + (skip-syntax-backward " ") (delete-char (- numarg)) (unless (and (not (bobp)) (save-excursion (goto-char (point-min)) -- 2.11.4.GIT