(texinfo-anchor): Don't delete a non-speace after the @anchor command.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 101737227b2..91fa154933b 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -1143,7 +1143,8 @@ Leave point after argument."
   (let (anchor-string 
         (here (- (point) 7))  ; save location of beginning of `@anchor'
         (arg (texinfo-parse-arg-discard)))
-    (delete-char 1)           ; since a space is left after -discard
+    (if (looking-at " ")      ; since a space may be left after -discard
+      (delete-char 1))
     (forward-paragraph) 
     (let ((end (point)))
       (if (save-excursion