bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#1518: marked as done (`rx' making nested `or' forms in a `group' wr


From: Emacs bug Tracking System
Subject: bug#1518: marked as done (`rx' making nested `or' forms in a `group' wrong)
Date: Tue, 9 Dec 2008 13:25:05 -0800

Your message dated Tue, 09 Dec 2008 16:17:29 -0500
with message-id <address@hidden>
and subject line Re: bug#1518: `rx' making nested `or' forms in a `group' wrong
has caused the Emacs bug report #1518,
regarding `rx' making nested `or' forms in a `group' wrong
to be marked as done.

This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
bug report if necessary, and/or fix the problem forthwith.

(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact address@hidden
immediately.)


-- 
1518: http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=1518
Emacs Bug Tracking System
Contact address@hidden with problems
--- Begin Message --- Subject: `rx' making nested `or' forms in a `group' wrong Date: Mon, 08 Dec 2008 20:19:20 -0800
This one is wrong:

(rx (seq (group "foo" (or (or "asdf" "lkjh") "zab")) "bar"))
=>
"\\(foo\\(?:asdf\\|lkjh\\)\\|zab\\)bar"

This similar one without the group is correct:

(rx (seq "foo" (or (or "asdf" "lkjh") "zab") "bar"))
=>
"foo\\(?:\\(?:asdf\\|lkjh\\)\\|zab\\)bar"


-- 
: Derick
----------------------------------------------------------------


In GNU Emacs 23.0.60.1 (i486-pc-linux-gnu, GTK+ Version 2.14.3)
 of 2008-10-13 on rothera, modified by Debian
 (emacs-snapshot package, version 1:20081013-1)
Windowing system distributor `The X.Org Foundation', version 11.0.10502000
configured using `configure  '--build' 'i486-linux-gnu' '--host' 
'i486-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib' 
'--libexecdir=/usr/lib' '--localstatedir=/var' '--infodir=/usr/share/info' 
'--mandir=/usr/share/man' '--with-pop=yes' 
'--enable-locallisppath=/etc/emacs-snapshot:/etc/emacs:/usr/local/share/emacs/23.0.60/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/23.0.60/site-lisp:/usr/share/emacs/site-lisp'
 '--with-x=yes' '--with-x-toolkit=gtk' 'build_alias=i486-linux-gnu' 
'host_alias=i486-linux-gnu' 'CFLAGS=-DDEBIAN -DSITELOAD_PURESIZE_EXTRA=5000 -g 
-O2' 'LDFLAGS=-g -Wl,--as-needed' 'CPPFLAGS=''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: nil
  locale-coding-system: utf-8-unix
  default-enable-multibyte-characters: t

Major mode: Text

Minor modes in effect:
  show-paren-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> ) <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> g r o u p SPC <left> <left> <left> 
<left> <left> <left> <left> <left> <right> <end> C-j 
<up> <up> <S-down> M-w <up> <up> <return> <return> 
<down> <backspace> <backspace> <down> <down> <down> 
C-y <up> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <left> <left> 
C-M-SPC C-M-SPC C-w <left> <left> <left> <left> <left> 
<left> <left> C-y C-M-k <right> <right> <right> <right> 
<right> <right> <right> <right> C-j <up> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<left> <left> <left> <left> <left> <left> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <up> 
<up> <up> <left> <left> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<up> <down> <up> <left> <left> <left> <left> <down-mouse-1> 
<mouse-1> <help-echo> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> M-x r e p o r t - e m a c s - b u <tab> 
<return>

Recent messages:
1 match
Making completion list...
Mark set [4 times]
Quit
Mark set [5 times]
Entering debugger...
Mark set [2 times]
Entering debugger...
Undo! [2 times]
Mark set [8 times]






--- End Message ---
--- Begin Message --- Subject: Re: bug#1518: `rx' making nested `or' forms in a `group' wrong Date: Tue, 09 Dec 2008 16:17:29 -0500 User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux)
> This one is wrong:
> (rx (seq (group "foo" (or (or "asdf" "lkjh") "zab")) "bar"))
> =>
> "\\(foo\\(?:asdf\\|lkjh\\)\\|zab\\)bar"

I've installed the patch below which should fix it.
Thank you for your help.


        Stefan


Index: lisp/emacs-lisp/rx.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/rx.el,v
retrieving revision 1.29
diff -u -r1.29 rx.el
--- lisp/emacs-lisp/rx.el       7 Oct 2008 18:08:26 -0000       1.29
+++ lisp/emacs-lisp/rx.el       9 Dec 2008 21:13:50 -0000
@@ -666,7 +666,13 @@
 
 (defun rx-submatch (form)
   "Parse and produce code from FORM, which is `(submatch ...)'."
-  (concat "\\(" (mapconcat #'rx-form (cdr form) nil) "\\)"))
+  (concat "\\("
+          (if (= 2 (length form))
+              ;; Only one sub-form.
+              (rx-form (cadr form))
+            ;; Several sub-forms implicitly concatenated.
+            (mapconcat (lambda (re) (rx-form re ':)) (cdr form) nil))
+          "\\)"))
 
 
 (defun rx-backref (form)


--- End Message ---

reply via email to

[Prev in Thread] Current Thread [Next in Thread]