;; 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
(insert ?\n)))
\f
-;;; Space controlling commands: @. and @:
+;;; Space controlling commands: @. and @:, and the soft hyphen.
+
(put '\. 'texinfo-format 'texinfo-format-\.)
(defun texinfo-format-\. ()
(texinfo-discard-command)
(defun texinfo-format-\: ()
(texinfo-discard-command))
+(put '\- 'texinfo-format 'texinfo-format-soft-hyphen)
+(defun texinfo-format-soft-hyphen ()
+ (texinfo-discard-command))
+
\f
;;; @center, @sp, and @br