Procházet zdrojové kódy

org-table.el: Don't use `if-let' to avoid requiring subr-x.el

* lisp/org-table.el (org-table-row-get-visible-string): Don't
use `if-let' to avoid requiring subr-x.el.
Bastien před 5 roky
rodič
revize
d303b6af29
1 změnil soubory, kde provedl 3 přidání a 3 odebrání
  1. 3 3
      lisp/org-table.el

+ 3 - 3
lisp/org-table.el

@@ -464,9 +464,9 @@ This is useful when columns have been shrunk."
 	  (end (point-at-eol)) spc)
       (goto-char beg)
       (while (progn (org-table-next-field) (< (point) end))
-	(if-let ((ov (first (overlays-in (point) (1+ (point))))))
-	    (push (overlay-get ov 'display) spc)
-	  (push (org-table-get-field) spc)))
+	(let ((ov (first (overlays-in (point) (1+ (point))))))
+	  (if ov (push (overlay-get ov 'display) spc)
+	    (push (org-table-get-field) spc))))
       (format "|%s|" (mapconcat #'identity (reverse spc) "|")))))
 
 (defun org-table-set-header-line-format ()