Permalink
Browse files

when ee is "", set it to nil

  • Loading branch information...
1 parent af18a01 commit e3c36246e5e019ee5c8f4d7b7f53e93a88d6fc28 Le Wang committed Nov 10, 2012
Showing with 6 additions and 3 deletions.
  1. +6 −3 rebox2.el
View
@@ -12,9 +12,9 @@
;; Created: Mon Jan 10 22:22:32 2011 (+0800)
;; Version: 0.7
-;; Last-Updated: Sat Nov 3 21:42:06 2012 (+0800)
+;; Last-Updated: Sat Nov 10 23:23:38 2012 (+0800)
;; By: Le Wang
-;; Update #: 469
+;; Update #: 474
;; URL: https://github.com/lewang/rebox2
;; Keywords:
;; Compatibility: GNU Emacs 23.2
@@ -1014,7 +1014,10 @@ refilled with it."
ww (cond ((zerop (match-beginning 0)) nil)
(t (substring line2 0 (match-beginning 0))))
ee (cond ((= (match-end 0) (length line2)) nil)
- (t (rebox-rstrip (substring line2 (match-end 0)))))
+ (t (let ((str (rebox-rstrip (substring line2 (match-end 0)))))
+ (if (zerop (length str))
+ nil
+ str))))
sw (cond ((not line3) nil)
(merge-sw (rebox-rstrip line3))
((zerop (match-beginning 0)) nil)

0 comments on commit e3c3624

Please sign in to comment.