procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(texinfo-format-soft-hyphen): New function.
This commit is contained in:
Richard M. Stallman 1994-10-30 20:05:58 +00:00
parent eef805d7ea
commit 5ec5330e64
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/textmodes/texinfmt.el
View file

@ -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