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

(texinfo-open-quote, texinfo-close-quote):

Browse source 
New defcustoms.
(texinfo-insert-quote): Don't call tex-insert-quote, to avoid
autoloading tex-mode; instead, do the same manually.  Use
texinfo-open-quote and texinfo-close-quote.  Insert literal quote
with numeric argument.  Docstring fix.
(toplevel): Require cl when compiling.
This commit is contained in:
Eli Zaretskii 2000-12-02 15:33:30 +00:00
parent d3e7e7cf2c
commit 9768eaa75d
2 changed files with 31 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,5 +1,13 @@
2000-12-02 Eli Zaretskii <eliz@is.elta.co.il>
* textmode/texinfo.el (texinfo-open-quote, texinfo-close-quote):
New defcustoms.
(texinfo-insert-quote): Don't call tex-insert-quote, to avoid
autoloading tex-mode; instead, do the same manually. Use
texinfo-open-quote and texinfo-close-quote. Insert literal quote
with numeric argument. Docstring fix.
(toplevel): Require cl when compiling.
* internat/mule.el (make-char): Doc fix.
2000-12-02 Jason Rumney <jasonr@gnu.org>

28
lisp/textmodes/texinfo.el
View file

@ -37,6 +37,18 @@
"Texinfo Mode"
:group 'docs)
;;;###autoload
(defcustom texinfo-open-quote "``"
"*String inserted by typing \\[texinfo-insert-quote] to open a quotation."
:type 'string
:group 'texinfo)
;;;###autoload
(defcustom texinfo-close-quote "''"
"*String inserted by typing \\[texinfo-insert-quote] to close a quotation."
:type 'string
:group 'texinfo)
;;; Autoloads:
@ -241,6 +253,7 @@ chapter."
;;; Code:
;;; Don't you dare insert any `require' calls at top level in this file--rms.
(eval-when-compile (require 'cl)) ;; for ignore-errors
(defvar texinfo-section-list
'(("top" 1)
@ -655,18 +668,23 @@ Puts point on a blank line between them."
(and (re-search-backward (concat "@\\(end\\s +\\)?" env) bound t)
(looking-at (concat "@" env)))))
(autoload 'tex-insert-quote "tex-mode" nil t)
(defun texinfo-insert-quote (&optional arg)
"Insert the appropriate quote mark for TeXinfo.
Inserts a plain \" if inside @code or @example, else inserts `` or ''
by calling `tex-insert-quote'."
Usually inserts the value of `texinfo-open-quote' (normally ``) or
`texinfo-close-quote' (normally ''), depending on the context.
With prefix argument or inside @code or @example, inserts a plain \"."
(interactive "*P")
(let ((top (or (save-excursion (re-search-backward "@node\\>" nil t))
(point-min))))
(if (or (texinfo-inside-env-p "example\\>" top)
(if (or arg
(texinfo-inside-env-p "example\\>" top)
(texinfo-inside-macro-p "@code\\>" top))
(self-insert-command (prefix-numeric-value arg))
(tex-insert-quote arg))))
(insert
(cond ((= (preceding-char) ?\\) ?\")
((memq (char-syntax (preceding-char)) '(?\( ?> ?\ ))
texinfo-open-quote)
(t texinfo-close-quote))))))
;; The following texinfo-insert-@end command not only inserts a SPC
;; after the @end, but tries to find out what belongs there. It is