* bug#62581: matching for global
@ 2023-04-01 5:46 Friedrich
2023-09-11 23:52 ` Stefan Kangas
0 siblings, 1 reply; 2+ messages in thread
From: Friedrich @ 2023-04-01 5:46 UTC (permalink / raw)
To: 62581
Dear Maintainers,
at least here run into a probelm while trying to load cedet global:
/home/frido/src/emacs/lisp/cedet/cedet-global.e
(defun cedet-gnu-global-version-check (&optional noerror)
"Check the version of the installed GNU Global command.
If optional programmatic argument NOERROR is non-nil,
then instead of throwing an error if Global isn't available,
return nil."
(interactive)
(let ((b (condition-case nil
(cedet-gnu-global-call (list "--version"))
(error nil)))
(rev nil))
(if (not b)
(progn
(when (called-interactively-p 'interactive)
(message "GNU Global not found."))
nil)
(with-current-buffer b
(goto-char (point-min))
-> here (re-search-forward "(?GNU GLOBAL)? \\([0-9.]+\\)" nil t)
(setq rev (match-string 1))
(if (version< rev cedet-global-min-version)
(if noerror
nil
(error "Version of GNU Global is %s. Need at least %s"
rev cedet-global-min-version))
;; Else, return TRUE, as in good enough.
(when (called-interactively-p 'interactive)
(message "GNU Global %s - Good enough for CEDET." rev))
t)))))
My gnu Global announces itself here with:
global --version
global (Global) 6.6.9
Powered by Berkeley DB 1.85 and SQLite3 3.8.7.1.
And so the match does not work
replacing "(?GNU GLOBAL)?
with just "global (Global) ..."
works for me
With best regards
Friedrich
^ permalink raw reply [flat|nested] 2+ messages in thread
* bug#62581: matching for global
2023-04-01 5:46 bug#62581: matching for global Friedrich
@ 2023-09-11 23:52 ` Stefan Kangas
0 siblings, 0 replies; 2+ messages in thread
From: Stefan Kangas @ 2023-09-11 23:52 UTC (permalink / raw)
To: Friedrich; +Cc: 62581-done
Version: 30.1
Friedrich (QSS) <frido@q-software-solutions.de> writes:
> Dear Maintainers,
> at least here run into a probelm while trying to load cedet global:
> /home/frido/src/emacs/lisp/cedet/cedet-global.e
> (defun cedet-gnu-global-version-check (&optional noerror)
> "Check the version of the installed GNU Global command.
> If optional programmatic argument NOERROR is non-nil,
> then instead of throwing an error if Global isn't available,
> return nil."
> (interactive)
> (let ((b (condition-case nil
> (cedet-gnu-global-call (list "--version"))
> (error nil)))
> (rev nil))
> (if (not b)
> (progn
> (when (called-interactively-p 'interactive)
> (message "GNU Global not found."))
> nil)
> (with-current-buffer b
> (goto-char (point-min))
> -> here (re-search-forward "(?GNU GLOBAL)? \\([0-9.]+\\)" nil t)
> (setq rev (match-string 1))
> (if (version< rev cedet-global-min-version)
> (if noerror
> nil
> (error "Version of GNU Global is %s. Need at least %s"
> rev cedet-global-min-version))
> ;; Else, return TRUE, as in good enough.
> (when (called-interactively-p 'interactive)
> (message "GNU Global %s - Good enough for CEDET." rev))
> t)))))
>
> My gnu Global announces itself here with:
>
> global --version
> global (Global) 6.6.9
> Powered by Berkeley DB 1.85 and SQLite3 3.8.7.1.
I can verify this:
$ global --version
global (Global) 6.6.10
Powered by Berkeley DB 1.85 and SQLite3 3.43.0.
> And so the match does not work
> replacing "(?GNU GLOBAL)?
>
> with just "global (Global) ..."
> works for me
Thanks, this should now be fixed on master.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2023-09-11 23:52 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-04-01 5:46 bug#62581: matching for global Friedrich
2023-09-11 23:52 ` Stefan Kangas
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.