[Emacs-diffs] /srv/bzr/emacs/trunk r107365: lisp/newcomment.el (uncomment-region-default): Remove unused binding.

[Juanma Barranquero]

------------------------------------------------------------
revno: 107365
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Tue 2012-02-21 15:48:13 +0100
message:
  lisp/newcomment.el (uncomment-region-default): Remove unused binding.
modified:
  lisp/ChangeLog
  lisp/newcomment.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-02-21 08:28:18 +0000
+++ b/lisp/ChangeLog    2012-02-21 14:48:13 +0000
@@ -1,3 +1,7 @@
+2012-02-21  Juanma Barranquero  <address@hidden>
+
+       * newcomment.el (uncomment-region-default): Remove unused binding.
+
 2012-02-21  Glenn Morris  <address@hidden>
 
        * textmodes/picture.el (picture-motion, picture-motion-reverse)

=== modified file 'lisp/newcomment.el'
--- a/lisp/newcomment.el        2012-02-17 15:44:32 +0000
+++ b/lisp/newcomment.el        2012-02-21 14:48:13 +0000
@@ -224,7 +224,7 @@
      /* 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 @@
          (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))