update packages
This commit is contained in:
@@ -52,7 +52,8 @@ If PATH contains extra ::STRING which will use `occur' to search
|
||||
matched strings in man buffer."
|
||||
(require 'man) ; For `Man-translate-references'
|
||||
(string-match "\\(.*?\\)\\(?:::\\(.*\\)\\)?$" path)
|
||||
(let* ((command (match-string 1 path))
|
||||
(let* ((search (match-string 2 path))
|
||||
(command (match-string 1 path))
|
||||
;; FIXME: Remove after we drop Emacs 29 support.
|
||||
;; Working around security bug #66390.
|
||||
(command (if (not (equal (Man-translate-references ";id") ";id"))
|
||||
@@ -65,7 +66,6 @@ matched strings in man buffer."
|
||||
(mapcar #'shell-quote-argument
|
||||
(split-string command "\\s-+"))
|
||||
" ")))
|
||||
(search (match-string 2 path))
|
||||
(buffer (funcall org-man-command command)))
|
||||
(when search
|
||||
(with-current-buffer buffer
|
||||
|
||||
Reference in New Issue
Block a user