Commit bdad2e31 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

Fix brainos.

parent 67da3b40
......@@ -640,7 +640,7 @@ else cover the whole bufer."
(while (progn (setq last-pt (point))
(= (forward-line -1) 0))
(case (char-after)
(?s (insert " ") (setq modif nil) (backward-char 1))
(?\s (insert " ") (setq modif nil) (backward-char 1))
(?+ (delete-region (point) last-pt) (setq modif t))
(?- (if (not modif)
(progn (forward-char 1)
......@@ -665,7 +665,7 @@ else cover the whole bufer."
(let ((modif nil) (delete nil))
(while (not (eobp))
(case (char-after)
(? (insert " ") (setq modif nil) (backward-char 1))
(?\s (insert " ") (setq modif nil) (backward-char 1))
(?- (setq delete t) (setq modif t))
(?+ (if (not modif)
(progn (forward-char 1)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment