Revert "Replace insignificant backquotes" for Org files

Revert everything of commit 1808d254a5 "Replace insignificant
backquotes" that touches Org source files since these should not have
been changed.

* lisp/org/ob-C.el:
* lisp/org/ob-core.el:
* lisp/org/ob-exp.el:
* lisp/org/ob-groovy.el:
* lisp/org/ob-haskell.el:
* lisp/org/ob-io.el:
* lisp/org/ob-lisp.el:
* lisp/org/ob-lob.el:
* lisp/org/ob-lua.el:
* lisp/org/ob-octave.el:
* lisp/org/ob-perl.el:
* lisp/org/ob-python.el:
* lisp/org/ob-ref.el:
* lisp/org/ob-ruby.el:
* lisp/org/ob-sql.el:
* lisp/org/org-agenda.el:
* lisp/org/org-capture.el:
* lisp/org/org-clock.el:
* lisp/org/org-colview.el:
* lisp/org/org-duration.el:
* lisp/org/org-element.el:
* lisp/org/org-entities.el:
* lisp/org/org-gnus.el:
* lisp/org/org-indent.el:
* lisp/org/org-info.el:
* lisp/org/org-inlinetask.el:
* lisp/org/org-lint.el:
* lisp/org/org-list.el:
* lisp/org/org-mouse.el:
* lisp/org/org-plot.el:
* lisp/org/org-src.el:
* lisp/org/org-table.el:
* lisp/org/org.el:
* lisp/org/ox-ascii.el:
* lisp/org/ox-html.el:
* lisp/org/ox-latex.el:
* lisp/org/ox-man.el:
* lisp/org/ox-md.el:
* lisp/org/ox-org.el:
* lisp/org/ox-publish.el:
* lisp/org/ox-texinfo.el:
* lisp/org/ox.el: Undo changes made by commit "Replace insignificant
backquotes".

1 files changed, 30 insertions, 30 deletions

diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el
index 09840cc44f2..b8f14670226 100644
--- a/lisp/org/org-element.el
+++ b/lisp/org/org-element.el
@@ -588,9 +588,9 @@ is cleared and contents are removed in the process."
   (when datum
     (let ((type (org-element-type datum)))
       (pcase type
-	('org-data (list 'org-data nil))
-	('plain-text (substring-no-properties datum))
-	('nil (copy-sequence datum))
+	(`org-data (list 'org-data nil))
+	(`plain-text (substring-no-properties datum))
+	(`nil (copy-sequence datum))
 	(_
 	 (list type (plist-put (copy-sequence (nth 1 datum)) :parent nil)))))))
 
@@ -1285,9 +1285,9 @@ CONTENTS is the contents of the element."
      bullet
      (and counter (format "[@%d] " counter))
      (pcase checkbox
-       ('on "[X] ")
-       ('off "[ ] ")
-       ('trans "[-] ")
+       (`on "[X] ")
+       (`off "[ ] ")
+       (`trans "[-] ")
        (_ nil))
      (and tag (format "%s :: " tag))
      (when contents
@@ -3185,13 +3185,13 @@ CONTENTS is the contents of the object, or nil."
 			    ;; a format string, escape percent signs
 			    ;; in description.
 			    (replace-regexp-in-string "%" "%%" contents)))
-		   ((or 'bracket
-			'nil
+		   ((or `bracket
+			`nil
 			(guard (member type '("coderef" "custom-id" "fuzzy"))))
 		    "[[%s]]")
 		   ;; Otherwise, just obey to `:format'.
-		   ('angle "<%s>")
-		   ('plain "%s")
+		   (`angle "<%s>")
+		   (`plain "%s")
 		   (f (error "Wrong `:format' value: %s" f)))))
 	(format fmt
 		(pcase type
@@ -3581,19 +3581,19 @@ Assume point is at the beginning of the timestamp."
   (let* ((repeat-string
 	  (concat
 	   (pcase (org-element-property :repeater-type timestamp)
-	     ('cumulate "+") ('catch-up "++") ('restart ".+"))
+	     (`cumulate "+") (`catch-up "++") (`restart ".+"))
 	   (let ((val (org-element-property :repeater-value timestamp)))
 	     (and val (number-to-string val)))
 	   (pcase (org-element-property :repeater-unit timestamp)
-	     ('hour "h") ('day "d") ('week "w") ('month "m") ('year "y"))))
+	     (`hour "h") (`day "d") (`week "w") (`month "m") (`year "y"))))
 	 (warning-string
 	  (concat
 	   (pcase (org-element-property :warning-type timestamp)
-	     ('first "--") ('all "-"))
+	     (`first "--") (`all "-"))
 	   (let ((val (org-element-property :warning-value timestamp)))
 	     (and val (number-to-string val)))
 	   (pcase (org-element-property :warning-unit timestamp)
-	     ('hour "h") ('day "d") ('week "w") ('month "m") ('year "y"))))
+	     (`hour "h") (`day "d") (`week "w") (`month "m") (`year "y"))))
 	 (build-ts-string
 	  ;; Build an Org timestamp string from TIME.  ACTIVEP is
 	  ;; non-nil when time stamp is active.  If WITH-TIME-P is
@@ -3622,7 +3622,7 @@ Assume point is at the beginning of the timestamp."
 	      ts)))
 	 (type (org-element-property :type timestamp)))
     (pcase type
-      ((or 'active 'inactive)
+      ((or `active `inactive)
        (let* ((minute-start (org-element-property :minute-start timestamp))
 	      (minute-end (org-element-property :minute-end timestamp))
 	      (hour-start (org-element-property :hour-start timestamp))
@@ -3642,7 +3642,7 @@ Assume point is at the beginning of the timestamp."
 	  (and hour-start minute-start)
 	  (and time-range-p hour-end)
 	  (and time-range-p minute-end))))
-      ((or 'active-range 'inactive-range)
+      ((or `active-range `inactive-range)
        (let ((minute-start (org-element-property :minute-start timestamp))
 	     (minute-end (org-element-property :minute-end timestamp))
 	     (hour-start (org-element-property :hour-start timestamp))
@@ -4227,17 +4227,17 @@ otherwise.  Modes can be either `first-section', `item',
 `table-row' or nil."
   (if parentp
       (pcase type
-	('headline 'section)
-	('inlinetask 'planning)
-	('plain-list 'item)
-	('property-drawer 'node-property)
-	('section 'planning)
-	('table 'table-row))
+	(`headline 'section)
+	(`inlinetask 'planning)
+	(`plain-list 'item)
+	(`property-drawer 'node-property)
+	(`section 'planning)
+	(`table 'table-row))
     (pcase type
-      ('item 'item)
-      ('node-property 'node-property)
-      ('planning 'property-drawer)
-      ('table-row 'table-row))))
+      (`item 'item)
+      (`node-property 'node-property)
+      (`planning 'property-drawer)
+      (`table-row 'table-row))))
 
 (defun org-element--parse-elements
     (beg end mode structure granularity visible-only acc)
@@ -5018,8 +5018,8 @@ the cache."
 		lower element
 		upper element)))))
     (pcase side
-      ('both (cons lower upper))
-      ('nil lower)
+      (`both (cons lower upper))
+      (`nil lower)
       (_ upper))))
 
 (defun org-element--cache-put (element)
@@ -5513,8 +5513,8 @@ that range.  See `after-change-functions' for more information."
 	 ;; case for headline editing: if a headline is modified but
 	 ;; not removed, do not extend.
 	 (when (pcase org-element--cache-change-warning
-		 ('t t)
-		 ('headline
+		 (`t t)
+		 (`headline
 		  (not (and (org-with-limited-levels (org-at-heading-p))
 			    (= (line-end-position) bottom))))
 		 (_