Function: hsys-consult-get-version

hsys-consult-get-version is an autoloaded and byte-compiled function defined in hsys-consult.el.

Signature

(hsys-consult-get-version)

Documentation

Return the string version of the installed consult package or nil.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hsys-consult.el
;;;###autoload
(defun hsys-consult-get-version ()
  "Return the string version of the installed consult package or nil."
  (let* ((consult-file (find-library-name "consult"))
	 (buffer-existed (get-file-buffer consult-file))
	 (buffer-modified (when buffer-existed (buffer-modified-p buffer-existed)))
	 (buf (or buffer-existed (find-file-noselect consult-file))))
    (with-current-buffer buf
      (prog1 (save-excursion
               (widen)
               (goto-char (point-min))
               (if (re-search-forward "Version:[ \t]+\\([.0-9]+\\)" nil t)
                   (match-string-no-properties 1)
                 ""))
	(unless buffer-modified
	  (kill-buffer buf))))))