From: kaoru <kaoru>
Date: Fri, 9 Nov 2007 23:08:14 +0000 (+0000)
Subject: Import from gnus-doc-ja:
X-Git-Tag: wl-2_15_6-fixes~72
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=244e1ab4019824eb782ac52420b6b06aed633953;p=elisp%2Fwanderlust.git

Import from gnus-doc-ja:
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.
---

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 576fdd0..71322e9 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,9 @@
+2007-11-09  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.
+
 2007-11-09  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* ptexinfmt.el: Fix comment.
diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index c86333c..9c98e13 100644
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -59,7 +59,6 @@
 
 ;;; Code:
 
-(require 'backquote)
 (require 'texinfmt)
 
 ;;; Broken
@@ -73,50 +72,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