diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-05-19 01:40:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-05-19 01:40:23 +0000 |
| commit | 294500f232a4c11b1ba87d0ceb49cdced025c676 (patch) | |
| tree | da34e7cfa2132a4e5675ee939d64e5ddda0f589f /lisp/textmodes/texinfmt.el | |
| parent | b97771fc17f53e7b3e0e145fda14730abc9b1e4e (diff) | |
| download | emacs-294500f232a4c11b1ba87d0ceb49cdced025c676.tar.gz | |
(texinfo-anchor): Don't delete a non-speace after the @anchor command.
Diffstat (limited to 'lisp/textmodes/texinfmt.el')
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 3 |
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 |