Fixed string-to-int problem.

7fd5751a · Linus Tolke Y · 91245525 · 7fd5751a · 7fd5751a
Commit 7fd5751a authored Aug 20, 1993 by Linus Tolke Y
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

src/ChangeLog src/ChangeLog +3 -0

src/flags.el src/flags.el +2 -0

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
--- a/src/flags.el
+++ b/src/flags.el
@@ -256,6 +256,8 @@ or not."


 (defun lyskom-read-options-eval-get-holerith ()
+  (while (string-match "\\s-" (substring txt 0 1))
+    (setq txt (substring txt 1)))
  (let ((len (string-to-int txt))
 	(start (progn (string-match "[0-9]+H" txt)
 		      (match-end 0))))