Fix bug 1137:

* commands1.el (lyskom-read-mark-type): Handle empty
input correctly.

src/ChangeLog

+2003-10-23  Joel Rosdahl  <joel@rosdahl.net>
+
+	Fix bug 1137:
+	* commands1.el (lyskom-read-mark-type): Handle empty
+	input correctly.
+
 2003-09-15  Per Cederqvist  <ceder@ingate.com>
 
 	* swedish-strings.el (lyskom-message): Added missing verb in

src/commands1.el

@@ -2285,6 +2285,8 @@ exist."
                     prompt
                     (lyskom-maybe-frob-completion-table completions)))
              (mark-assoc (lyskom-string-assoc mark completions)))
+        (when (null mark)
+          (setq mark ""))
         (cond
          ;; Default completion.
          ((and nildefault
@@ -2302,6 +2304,7 @@ exist."
 
          ;; Incorrect completion; create new symbolic mark type.
          ((and create-nonexistent
+               (not (string= mark ""))
                (lyskom-j-or-n-p
                 (lyskom-format (lyskom-get-string
                                 'want-to-create-symbolic-mark)