diff options
| author | Richard M. Stallman <[email protected]> | 1994-10-30 20:05:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-10-30 20:05:58 +0000 |
| commit | 5ec5330e64560096ddb64720ff0cdfeeaa5e3f9d (patch) | |
| tree | 25b2a42d87dbd0cacc12b6ba338ad32e834ea91c /lisp/textmodes/texinfmt.el | |
| parent | eef805d7ea423a459b2f1b935ff0b2dd57fe6386 (diff) | |
(texinfo-format-scan): Make @- vanish; don't insert -.
(texinfo-format-soft-hyphen): New function.
Diffstat (limited to 'lisp/textmodes/texinfmt.el')
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 6c770caec2..e7b8b5562c 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -641,7 +641,7 @@ lower types.") ;; Scan for @-commands. (goto-char (point-min)) (while (search-forward "@" nil t) - (if (looking-at "[@{}^'` *\"?!-]") + (if (looking-at "[@{}^'` *\"?!]") ;; Handle a few special @-followed-by-one-char commands. (if (= (following-char) ?*) (progn @@ -1054,7 +1054,8 @@ lower types.") (insert ?\n))) -;;; Space controlling commands: @. and @: +;;; Space controlling commands: @. and @:, and the soft hyphen. + (put '\. 'texinfo-format 'texinfo-format-\.) (defun texinfo-format-\. () (texinfo-discard-command) @@ -1064,6 +1065,10 @@ lower types.") (defun texinfo-format-\: () (texinfo-discard-command)) +(put '\- 'texinfo-format 'texinfo-format-soft-hyphen) +(defun texinfo-format-soft-hyphen () + (texinfo-discard-command)) + ;;; @center, @sp, and @br |