~brettgilio/org-webring

2bc2e7470a103b81cb16cbbb745c43fe985ef6f2 — Brett Gilio a month ago 00b1e8f
Set ox-hugo preemption fallback for < 27.x
1 files changed, 14 insertions(+), 1 deletions(-)

M org-webring.el
M org-webring.el => org-webring.el +14 -1
@@ 433,7 433,20 @@ The POST will be skipped
		   (cond ((stringp content)
			  (with-temp-buffer
			    (insert content)
                            (delete-indentation nil (point-min) (point-max))
                            ;; XXX: `delete-indentation' holds only 1
                            ;; argument before 27.x. Create fallback.
                            (if (version< emacs-version "27")
                                (let ((prefix (and (> (length fill-prefix) 0)
                                                   (regexp-quote fill-prefix))))
                                  (while (and (> (line-beginning-position)
                                                 (point-min))
                                              (forward-line 0)
                                              (= (preceding-char) ?\n))
                                    (delete-char -1)
                                    (if (and prefix (looking-at prefix))
                                        (replace-match "" t t))
                                    (fixup-whitespace)))
                              (delete-indentation nil (point-min) (point-max)))
			    (libxml-parse-html-region (point-min)
						      (point-max))))
			 ((consp content)