From: yamaoka <yamaoka>
Date: Mon, 3 Sep 2007 04:05:37 +0000 (+0000)
Subject: (ptexinfmt-broken-facility, ptexinfmt-defun-if-broken, ptexinfmt-defun-if-void)
X-Git-Tag: ngnus-0_8-doc-ja~63
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=44b5ac63529524dfa971de800f8d726c28b69496;p=elisp%2Fgnus-doc-ja.git

(ptexinfmt-broken-facility, ptexinfmt-defun-if-broken, ptexinfmt-defun-if-void)
(ptexinfmt-defvar-if-void): Don't use old-style backquotes.
(texinfo-format-cedilla-accent): Quote `,'.
---

diff --git a/ChangeLog b/ChangeLog
index 561e84d..7022480 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2007-09-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* ptexinfmt.el (ptexinfmt-broken-facility, ptexinfmt-defun-if-broken)
+	(ptexinfmt-defun-if-void, ptexinfmt-defvar-if-void): Don't use
+	old-style backquotes.
+	(texinfo-format-cedilla-accent): Quote `,'.
+
 2007-05-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* infohack.el (infohack-texi-format): Revert.
@@ -32,8 +39,8 @@
 2005-12-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* emacs-mime-ja.texi, gnus-coding-ja.texi, gnus-ja.texi,
-	message-ja.texi, pgg-ja.texi, sasl-ja.texi, sieve-ja.texi:
-	Add @firstparagraphindent.
+	message-ja.texi, pgg-ja.texi, sasl-ja.texi, sieve-ja.texi: Add
+	@firstparagraphindent.
 
 2005-12-08  Katsumi Yamaoka  <yamaoka@jpl.org>
 
@@ -121,17 +128,22 @@
 	* gnus-doc-ja: The project has started.
 
 	We aim to translate all the Info manuals of Gnus into Japanese.
-	Fortunately, we have the inheritance of the Semi-gnus project, of
-	which Yoshiki Hayashi and Keisuke Mori made the Japanese manuals
-	being specialized to Semi-gnus.  Don't forget Kazuyuki Ienaga who
-	had translated the Gnus v5.0.15 manual into Japanese for the first
-	time, and Keiichi Suzuki who used to have translated gnus-faq.texi.
-	Let's start translating, making full use of those fortunes.
+	Fortunately, we have the inheritance of the Semi-gnus project, of which
+	Yoshiki Hayashi and Keisuke Mori made the Japanese manuals being
+	specialized to Semi-gnus.  Don't forget Kazuyuki Ienaga who had
+	translated the Gnus v5.0.15 manual into Japanese for the first time,
+	and Keiichi Suzuki who used to have translated gnus-faq.texi.  Let's
+	start translating, making full use of those fortunes.
 
 	There were the following files in the CVS trunk initially:
 
-	.cvsignore ChangeLog Makefile.in README.ja TRANSLATION.ja
-	configure configure.ac doclicense.texi emacs-mime-ja.texi
-	gnus-faq-ja.texi gnus-ja.texi gnus-news-ja.texi gnus-terms.ja
-	infohack.el install-sh message-ja.texi mkinstalldirs pgg-ja.texi
-	ptexinfmt.el sasl-ja.texi sieve-ja.texi
+	.cvsignore ChangeLog Makefile.in README.ja TRANSLATION.ja configure
+	configure.ac doclicense.texi emacs-mime-ja.texi gnus-faq-ja.texi
+	gnus-ja.texi gnus-news-ja.texi gnus-terms.ja infohack.el install-sh
+	message-ja.texi mkinstalldirs pgg-ja.texi ptexinfmt.el sasl-ja.texi
+	sieve-ja.texi
+
+
+Local Variables:
+fill-column: 79
+End:
diff --git a/ptexinfmt.el b/ptexinfmt.el
index 36843c1..a7eb873 100644
--- a/ptexinfmt.el
+++ b/ptexinfmt.el
@@ -69,50 +69,50 @@ This is last argument in `ptexinfmt-broken-facility'.")
   "Declare a symbol FACILITY is broken if ASSERTION is nil.
 DOCSTRING will be printed if ASSERTION is nil and
 `ptexinfmt-disable-broken-notice-flag' is nil."
-  (` (let ((facility '(, facility))
-	   (docstring (, docstring))
-	   (assertion (eval '(, assertion))))
-       (put facility 'broken (not assertion))
-       (if assertion
+  `(let ((facility ',facility)
+	 (docstring ,docstring)
+	 (assertion (eval ',assertion)))
+     (put facility 'broken (not assertion))
+     (if assertion
+	 nil
+       (put facility 'broken-docstring docstring)
+       (if ptexinfmt-disable-broken-notice-flag
 	   nil
-	 (put facility 'broken-docstring docstring)
-	 (if ptexinfmt-disable-broken-notice-flag
-	     nil
-	   (message "BROKEN FACILITY DETECTED: %s" docstring))))))
+	 (message "BROKEN FACILITY DETECTED: %s" docstring)))))
 
 (put 'ptexinfmt-defun-if-broken 'lisp-indent-function 'defun)
 (defmacro ptexinfmt-defun-if-broken (&rest args)
   "Redefine a function just like `defun' if it is considered broken."
   (let ((name (list 'quote (car args))))
     (setq args (cdr args))
-    (` (prog1
-	   (, name)
-	 (if (get (, name) 'broken)
-	     (defalias (, name)
-	       (function (lambda (,@ args)))))))))
+    `(prog1
+	 ,name
+       (if (get ,name 'broken)
+	   (defalias ,name
+	     (function (lambda ,@args)))))))
 
 (put 'ptexinfmt-defun-if-void 'lisp-indent-function 'defun)
 (defmacro ptexinfmt-defun-if-void (&rest args)
   "Define a function just like `defun' unless it is already defined."
   (let ((name (list 'quote (car args))))
     (setq args (cdr args))
-    (` (prog1
-	   (, name)
-	 (if (fboundp (, name))
-	     nil
-	   (defalias (, name)
-	     (function (lambda (,@ args)))))))))
+    `(prog1
+	 ,name
+       (if (fboundp ,name)
+	   nil
+	 (defalias ,name
+	   (function (lambda ,@args)))))))
 
 (put 'ptexinfmt-defvar-if-void 'lisp-indent-function 'defun)
 (defmacro ptexinfmt-defvar-if-void (&rest args)
   "Define a variable just like `defvar' unless it is already defined."
   (let ((name (car args)))
     (setq args (cdr args))
-    (` (prog1
-	   (defvar (, name))
-	 (if (boundp '(, name))
-	     nil
-	   (defvar (, name) (,@ args)))))))
+    `(prog1
+	 (defvar ,name)
+       (if (boundp ',name)
+	   nil
+	 (defvar ,name ,@args)))))
 
 ;; sort -fd
 (ptexinfmt-broken-facility texinfo-format-printindex
@@ -513,7 +513,7 @@ For example, @verb\{|@|\} results in @ and
   (goto-char texinfo-command-start))
 
 ;; @,{c}	==>	c,	cedilla accent
-(put ', 'texinfo-format 'texinfo-format-cedilla-accent)
+(put '\, 'texinfo-format 'texinfo-format-cedilla-accent)
 (ptexinfmt-defun-if-void texinfo-format-cedilla-accent ()
   (insert (texinfo-parse-arg-discard) ",")
   (goto-char texinfo-command-start))