Browse Source

Minor refactoring.

Nicolas Goaziou 15 years ago
parent
commit
1bfe98bdf6
1 changed files with 1 additions and 2 deletions
  1. 1 2
      lisp/org-list.el

+ 1 - 2
lisp/org-list.el

@@ -439,8 +439,7 @@ function ends."
 	     (after-text
 	      (when (< pos end-before-blank)
 		(prog1
-		    (buffer-substring pos end-before-blank)
-		  (delete-region pos end-before-blank)
+		    (delete-and-extract-region pos end-before-blank)
 		  ;; delete any blank line at and before point.
 		  (beginning-of-line)
 		  (while (looking-at "^[ \t]*$")