martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(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