Mercurial > emacs
comparison lisp/textmodes/texinfmt.el @ 9344:43cf4ed3f5f0
(texinfo-format-scan): Accept @^, @", @?, @!, @-.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 05 Oct 1994 00:47:30 +0000 |
parents | 0facf5c89fff |
children | 1de7e5bc1ff1 |
comparison
equal
deleted
inserted
replaced
9343:ee9866892683 | 9344:43cf4ed3f5f0 |
---|---|
639 (defun texinfo-format-scan () | 639 (defun texinfo-format-scan () |
640 (texinfo-format-convert (point-min) (point-max)) | 640 (texinfo-format-convert (point-min) (point-max)) |
641 ;; Scan for @-commands. | 641 ;; Scan for @-commands. |
642 (goto-char (point-min)) | 642 (goto-char (point-min)) |
643 (while (search-forward "@" nil t) | 643 (while (search-forward "@" nil t) |
644 (if (looking-at "[@{}'` *]") | 644 (if (looking-at "[@{}^'` *\"?!-]") |
645 ;; Handle a few special @-followed-by-one-char commands. | 645 ;; Handle a few special @-followed-by-one-char commands. |
646 (if (= (following-char) ?*) | 646 (if (= (following-char) ?*) |
647 (progn | 647 (progn |
648 ;; remove command | 648 ;; remove command |
649 (delete-region (1- (point)) (1+ (point))) | 649 (delete-region (1- (point)) (1+ (point))) |
1579 ; may contain spaces. Neither the start nor end delimiter is | 1579 ; may contain spaces. Neither the start nor end delimiter is |
1580 ; required. However, if you do not provide a start delimiter, you | 1580 ; required. However, if you do not provide a start delimiter, you |
1581 ; must follow the command name with two commas in a row; otherwise, | 1581 ; must follow the command name with two commas in a row; otherwise, |
1582 ; the Info formatting commands will misinterpret the end delimiter | 1582 ; the Info formatting commands will misinterpret the end delimiter |
1583 ; string as a start delimiter string. | 1583 ; string as a start delimiter string. |
1584 ; | |
1585 ; If you do a @definfoenclose{} on the name of a pre-defined macro (such | |
1586 ; as @emph{}, @strong{}, @tt{}, or @i{}) the enclosure definition will | |
1587 ; override the built-in definition. | |
1584 ; | 1588 ; |
1585 ; An enclosure command defined this way takes one argument in braces. | 1589 ; An enclosure command defined this way takes one argument in braces. |
1586 ; | 1590 ; |
1587 ; For example, you can write: | 1591 ; For example, you can write: |
1588 ; | 1592 ; |