bug#62581: matching for global

[Stefan Kangas <stefankangas@gmail.com>]

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.