(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 (file)
--- 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
+
+\f
+Local Variables:
+fill-column: 79
+End:

diff --git a/ptexinfmt.el b/ptexinfmt.el
index 36843c1..a7eb873 100644 (file)
--- 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))