From: Daiki Ueno <ueno@unixuser.org>
Date: Thu, 16 Dec 2010 04:57:53 +0000 (+0900)
Subject: Don't use old-style backquote in doc/ptexinfmt.el.
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=5a45c8b53ddb25f03bdab9f3491a92c064c47c7a;ds=sidebyside

Don't use old-style backquote in doc/ptexinfmt.el.
---

diff --git a/doc/ptexinfmt.el b/doc/ptexinfmt.el
index 341c8c0..d446697 100644
--- a/doc/ptexinfmt.el
+++ b/doc/ptexinfmt.el
@@ -52,50 +52,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))))
+  `(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
-	   (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))
+    `(prog1
+	 ,name
+	 (if (fboundp ,name)
 	     nil
-	   (defalias (, name)
-	     (function (lambda (,@ args)))))))))
+	   (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))
+    `(prog1
+	 (defvar ,name)
+	 (if (boundp ',name)
 	     nil
-	   (defvar (, name) (,@ args)))))))
+	   (defvar ,name ,@args)))))
 
 ;; sort -fd
 (ptexinfmt-broken-facility texinfo-format-printindex
@@ -447,7 +447,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))