44 |
(eval-when-compile (require 'tex-mode) (require 'cl)) |
(eval-when-compile (require 'tex-mode) (require 'cl)) |
45 |
|
|
46 |
(defgroup texinfo nil |
(defgroup texinfo nil |
47 |
"Texinfo Mode" |
"Texinfo Mode." |
48 |
:group 'docs) |
:group 'docs) |
49 |
|
|
50 |
;;;###autoload |
;;;###autoload |
701 |
(setq in-env t))))) |
(setq in-env t))))) |
702 |
(self-insert-command (prefix-numeric-value arg)) |
(self-insert-command (prefix-numeric-value arg)) |
703 |
(insert |
(insert |
704 |
(if (memq (char-syntax (preceding-char)) '(?\( ?> ?\ )) |
(if (memq (char-syntax (preceding-char)) '(?\( ?> ?\s)) |
705 |
texinfo-open-quote |
texinfo-open-quote |
706 |
texinfo-close-quote))))) |
texinfo-close-quote))))) |
707 |
|
|