From c45a6306850d425b74b317329816567b5567f5e5 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Fri, 11 Jun 1993 10:11:33 +0000
Subject: * picture.el (move-to-column-force): If column is negative, go 
 flush left.

---
 lisp/textmodes/picture.el | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lisp/textmodes/picture.el')

diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 7c0490b6d2e..b8a1ec0c5c2 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -34,6 +34,7 @@
   "Move to column COLUMN in current line.
 Differs from `move-to-column' in that it creates or modifies whitespace
 if necessary to attain exactly the specified column."
+  (or (natnump column) (setq column 0))
   (move-to-column column)
   (let ((col (current-column)))
     (if (< col column)
-- 
cgit v1.2.1