Commit 5ec5330e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(texinfo-format-scan): Make @- vanish; don't insert -.

(texinfo-format-soft-hyphen): New function.
parent eef805d7
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment