mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-05 22:43:24 +00:00
64c1cad545
GNU Emacs Lisp Reference Manual edition 2.5. PR: ports/17771 Submitted by: OKAZAKI Tetsurou <okazaki@be.to>
42 lines
1.3 KiB
Diff
42 lines
1.3 KiB
Diff
--- patch-texinfmt.el.orig Fri Mar 3 21:26:16 2000
|
||
+++ patch-texinfmt.el Thu Jul 13 18:17:38 2000
|
||
@@ -1,5 +1,5 @@
|
||
---- texinfmt.el-ORIG Sun May 30 04:21:06 1999
|
||
-+++ texinfmt.el Thu Jan 13 10:52:58 2000
|
||
+--- texinfmt.el.orig Thu Jul 13 18:12:19 2000
|
||
++++ texinfmt.el Thu Jul 13 18:17:28 2000
|
||
@@ -1111,6 +1111,78 @@
|
||
|
||
;;; @node, @menu, @detailmenu
|
||
@@ -112,17 +112,18 @@
|
||
(texinfo-discard-command)
|
||
(setq texinfo-last-node name)
|
||
(let ((tem (if texinfo-fold-nodename-case (downcase name) name)))
|
||
-@@ -1212,7 +1308,8 @@
|
||
+@@ -1212,7 +1308,9 @@
|
||
(insert (or fname (car args)) ": ")
|
||
(if (nth 3 args)
|
||
(insert "(" (nth 3 args) ")"))
|
||
-- (insert (car args))))))
|
||
+- (and (car args) (insert (car args)))))))
|
||
+ (insert (or (car args) ""))
|
||
+ (or (save-excursion (looking-at "[.,]")) (insert "."))))))
|
||
++
|
||
|
||
(put 'pxref 'texinfo-format 'texinfo-format-pxref)
|
||
(defun texinfo-format-pxref ()
|
||
-@@ -1220,6 +1317,7 @@
|
||
+@@ -1220,6 +1318,7 @@
|
||
(or (save-excursion
|
||
(forward-char -2)
|
||
(looking-at "::"))
|
||
@@ -130,7 +131,7 @@
|
||
(insert ".")))
|
||
|
||
;; @inforef{NODE, FNAME, FILE}
|
||
-@@ -1230,7 +1328,8 @@
|
||
+@@ -1230,7 +1329,8 @@
|
||
(let ((args (texinfo-format-parse-args)))
|
||
(texinfo-discard-command)
|
||
(if (nth 1 args)
|