GNU bug report logs - #62581
matching for global

Previous Next

Package: emacs;

Reported by: Friedrich (QSS) <frido <at> q-software-solutions.de>

Date: Sat, 1 Apr 2023 06:21:02 UTC

Severity: normal

Fixed in version 30.1

Done: Stefan Kangas <stefankangas <at> gmail.com>

Bug is archived. No further changes may be made.

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 62581 in the body.
You can then email your comments to 62581 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

View this report as an mbox folder, status mbox, maintainer mbox


Report forwarded to bug-gnu-emacs <at> gnu.org:
bug#62581; Package emacs. (Sat, 01 Apr 2023 06:21:02 GMT) Full text and rfc822 format available.

Acknowledgement sent to Friedrich (QSS) <frido <at> q-software-solutions.de>:
New bug report received and forwarded. Copy sent to bug-gnu-emacs <at> gnu.org. (Sat, 01 Apr 2023 06:21:02 GMT) Full text and rfc822 format available.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Friedrich (QSS) <frido <at> q-software-solutions.de>
To: bug-gnu-emacs <at> gnu.org
Subject: matching for global
Date: Sat, 01 Apr 2023 07:46:02 +0200
​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








Reply sent to Stefan Kangas <stefankangas <at> gmail.com>:
You have taken responsibility. (Mon, 11 Sep 2023 23:53:02 GMT) Full text and rfc822 format available.

Notification sent to Friedrich (QSS) <frido <at> q-software-solutions.de>:
bug acknowledged by developer. (Mon, 11 Sep 2023 23:53:02 GMT) Full text and rfc822 format available.

Message #10 received at 62581-done <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Friedrich <frido <at> q-software-solutions.de>
Cc: 62581-done <at> debbugs.gnu.org
Subject: Re: bug#62581: matching for global
Date: Mon, 11 Sep 2023 16:52:36 -0700
Version: 30.1

Friedrich (QSS) <frido <at> 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.




bug archived. Request was from Debbugs Internal Request <help-debbugs <at> gnu.org> to internal_control <at> debbugs.gnu.org. (Tue, 10 Oct 2023 11:24:17 GMT) Full text and rfc822 format available.

This bug report was last modified 191 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.