From 44b5ac63529524dfa971de800f8d726c28b69496 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 3 Sep 2007 04:05:37 +0000 Subject: [PATCH] (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 `,'. --- ChangeLog | 38 +++++++++++++++++++++++++------------- ptexinfmt.el | 52 ++++++++++++++++++++++++++-------------------------- 2 files changed, 51 insertions(+), 39 deletions(-) diff --git a/ChangeLog b/ChangeLog index 561e84d..7022480 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2007-09-03 Katsumi Yamaoka + + * 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 * infohack.el (infohack-texi-format): Revert. @@ -32,8 +39,8 @@ 2005-12-09 Katsumi Yamaoka * 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 @@ -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)) -- 1.7.10.4