Remove redundant let, ensure the whole buffer is checked for auto-id

Redundant let was left over from past refactoring. This commit removes
it.

It also ensures the search for auto-id:t is made throughout the whole
buffer.
This commit is contained in:
Lucien Cartier-Tilet 2022-08-24 18:22:53 +02:00
parent c32fc49d3d
commit 81212e7c60
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -128,13 +128,13 @@ This function executes `org-unique-id' when the buffers major
mode is `org-mode', when the buffer is not read-only, and if
\\='auto-id:t\\' is found in an #+OPTIONS line."
(interactive)
(let ((case-fold-search t))
(when (and (eq major-mode 'org-mode)
(eq buffer-read-only nil)
(save-excursion
(let ((case-fold-search t))
(re-search-forward "^#\\+OPTIONS:.*auto-id:t" (point-max) t))))
(org-unique-id))))
(when (and (eq major-mode 'org-mode)
(eq buffer-read-only nil)
(save-excursion
(goto-char (point-min))
(let ((case-fold-search t))
(re-search-forward "^#\\+OPTIONS:.*auto-id:t" (point-max) t))))
(org-unique-id)))
(provide 'org-unique-id)