Forráskód Böngészése

Tiny refactoring

* lisp/org-element.el (org-element-interpret-data):
* lisp/ox.el (org-export-data): Remove useless binding.
Nicolas Goaziou 8 éve
szülő
commit
b76e6543b2
2 módosított fájl, 4 hozzáadás és 6 törlés
  1. 2 3
      lisp/org-element.el
  2. 2 3
      lisp/ox.el

+ 2 - 3
lisp/org-element.el

@@ -4560,9 +4560,8 @@ to interpret.  Return Org syntax as a string."
 		(if (memq type '(org-data plain-text nil)) results
 		  ;; Build white spaces.  If no `:post-blank' property
 		  ;; is specified, assume its value is 0.
-		  (let ((blank (or (org-element-property :post-blank data) 0))
-			(class (org-element-class data parent)))
-		    (if (eq class 'object)
+		  (let ((blank (or (org-element-property :post-blank data) 0)))
+		    (if (eq (org-element-class data parent) 'object)
 			(concat results (make-string blank ?\s))
 		      (concat (org-element--interpret-affiliated-keywords data)
 			      (org-element-normalize-string results)

+ 2 - 3
lisp/ox.el

@@ -1988,9 +1988,8 @@ Return a string."
 	    (t
 	     (org-export-filter-apply-functions
 	      (plist-get info (intern (format ":filter-%s" type)))
-	      (let ((blank (or (org-element-property :post-blank data) 0))
-		    (class (org-element-class data parent)))
-		(if (eq class 'object)
+	      (let ((blank (or (org-element-property :post-blank data) 0)))
+		(if (eq (org-element-class data parent) 'object)
 		    (concat results (make-string blank ?\s))
 		  (concat (org-element-normalize-string results)
 			  (make-string blank ?\n))))