* riece-yank.el (riece-yank-strip-space): Bind space-width.
authorueno <ueno>
Fri, 19 Nov 2004 08:08:21 +0000 (08:08 +0000)
committerueno <ueno>
Fri, 19 Nov 2004 08:08:21 +0000 (08:08 +0000)
lisp/ChangeLog
lisp/riece-yank.el

index 1460097..9493254 100644 (file)
@@ -1,5 +1,7 @@
 2004-11-19  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-yank.el (riece-yank-strip-space): Bind space-width.
+
        * riece-xemacs.el (riece-recent-messages): New function.
        * riece-emacs.el (riece-recent-messages): New function.
        * riece.el (riece-submit-bug-report): Use riece-recent-messages
index a03c71f..9419e5f 100644 (file)
@@ -70,14 +70,14 @@ before/after the first/last non-blank line."
     (while (progn (beginning-of-line) (looking-at " *$"))
       (delete-region (point) (progn (end-of-line 0) (point))))
     ;; Delete common spaces in front of lines.
-    (setq space-width (point-max))
-    (while (looking-at " +")
-      (setq space-width (min space-width (length (match-string 0))))
-      (forward-line))
-    (goto-char (point-min))
-    (while (not (eobp))
-      (delete-char space-width)
-      (forward-line))
+    (let ((space-width (point-max)))
+      (while (looking-at " +")
+       (setq space-width (min space-width (length (match-string 0))))
+       (forward-line))
+      (goto-char (point-min))
+      (while (not (eobp))
+       (delete-char space-width)
+       (forward-line)))
     (buffer-string)))
 
 (defun riece-command-yank (arg prefix)