mirror of
https://github.com/org-roam/org-roam
synced 2025-09-20 16:10:56 -05:00
Address compiler warnings
Depend on Org 9.6 for `org-fold-show-context'.
This commit is contained in:
committed by
Dustin Farris
parent
551ff3b17e
commit
ed272eaf56
@@ -72,11 +72,10 @@ Like `string-equal', but case-insensitive."
|
||||
(defun org-roam-whitespace-content (s)
|
||||
"Return the whitespace content at the end of S."
|
||||
(with-temp-buffer
|
||||
(let ((c 0))
|
||||
(insert s)
|
||||
(skip-chars-backward " \t\n")
|
||||
(buffer-substring-no-properties
|
||||
(point) (point-max)))))
|
||||
(insert s)
|
||||
(skip-chars-backward " \t\n")
|
||||
(buffer-substring-no-properties
|
||||
(point) (point-max))))
|
||||
|
||||
(defun org-roam-strip-comments (s)
|
||||
"Strip Org comments from string S."
|
||||
@@ -85,7 +84,8 @@ Like `string-equal', but case-insensitive."
|
||||
(goto-char (point-min))
|
||||
(while (not (eobp))
|
||||
(if (org-at-comment-p)
|
||||
(delete-region (point-at-bol) (progn (forward-line) (point)))
|
||||
(delete-region (line-beginning-position)
|
||||
(progn (forward-line) (point)))
|
||||
(forward-line)))
|
||||
(buffer-string)))
|
||||
|
||||
|
Reference in New Issue
Block a user