GNU bug report logs - #6345
css-mode `css-extract-keyword-list' does not actually [PATCH]

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: MON KEY <monkey <at> sandpframing.com>
Subject: bug#6345: closed (Re: Status: css-mode `css-extract-keyword-list'
 does not actually [PATCH])
Date: Thu, 19 Mar 2015 22:43:02 +0000

[Message part 1 (text/plain, inline)]

Your bug report

#6345: css-mode `css-extract-keyword-list' does not actually [PATCH]

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 6345 <at> debbugs.gnu.org.

-- 
6345: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=6345
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Simen Heggestøyl <simenheg <at> gmail.com>
To: 6345-done <at> debbugs.gnu.org
Subject: Re: Status: css-mode `css-extract-keyword-list' does not actually
 [PATCH]
Date: Thu, 19 Mar 2015 23:42:33 +0100

[Message part 3 (text/plain, inline)]

Version: 25.1

As of commit 7ec63a3afa52213b7b3cd3ecc0717c6e6504dc43, that code is no
longer part of css-mode.

Thanks for your report!

-- Simen

[Message part 4 (text/html, inline)]

[Message part 5 (message/rfc822, inline)]

From: MON KEY <monkey <at> sandpframing.com>
To: bug-gnu-emacs <at> gnu.org
Subject: css-mode `css-extract-keyword-list' does not actually [PATCH]
Date: Thu, 3 Jun 2010 14:01:06 -0400

[Message part 6 (text/plain, inline)]

`css-extract-keyword-list' does not actually [PATCH]

In function `css-extract-keyword-list' the search for "Appendix
H. Index" fails e.g. this form:

   (search-backward "Appendix H. Index")

when used to search this the contents of this URL:

 "http://www.w3.org/TR/REC-CSS2/css2.txt"

which is dated: W3C Candidate Recommendation 08 September 2009

Returns this message:

 css-extract-keyword-list: Search failed: "Appendix H. Index"

It appears this function was originally supplied to scrape CSS
keywords as per the commented code in: lisp/textmodes/css-mode.el

,----
| (css-extract-keyword-list
|   '((pseudo . "^ +\\* :\\([^ \n,]+\\)")
|     (at . "^ +\\* @\\([^ \n,]+\\)")
|     (descriptor . "^ +\\* '\\([^ '\n]+\\)' (descriptor)")
|     (media . "^ +\\* '\\([^ '\n]+\\)' media group")
|    (property . "^ +\\* '\\([^ '\n]+\\)',")))
`----

However, W3C has gone behined Stefan's back and changed the Appendix
enumeration without asking his permission first :)

"Appendix H" is now "Appendix I".

Compare the version scraped (presumably):

 (URL `http://www.w3.org/TR/2008/REC-CSS2-20080411/indexlist.html')
 (URL `http://www.w3.org/TR/2008/REC-CSS2-20080411/css2.txt')

with the current version:

 (URL `http://www.w3.org/TR/CSS2/indexlist.html')
 (URL `http://www.w3.org/TR/CSS2/css2.txt')

The following regexp may be more robust and appears to works for
either the older version or the latest version and leaves room for W3C
to continue add appendices J-M:

 (search-backward-regexp "[_━]\\{60,79\\}\xa[[:space:]]+Appendix [A-M]\. Index")

This said, `css-extract-keyword-list' is now borking on regexps in
these conses:

 (css-extract-keyword-list
  '((pseudo . "^ +\\* :\\([^ \n,]+\\)")
    (at . "^ +\\* @\\([^ \n,]+\\)")
    (descriptor . "^ +\\* '\\([^ '\n]+\\)' (descriptor)")
    (media . "^ +\\* '\\([^ '\n]+\\)' media group")
    (property . "^ +\\* '\\([^ '\n]+\\)',")))

and seems to be failing per `url-insert-file-contents' reliance on
`decode-coding-inserted-region' which frobs the asterisks `*' (char
#x2a) into a bullet `•' (char #x2022) -- at least on on my system.

If we substitute occurences of "\\*" with "[*•]" (e.g. "[\x2a\x2022]")
the following regexps now seem to work correctly:

 (pp (css-extract-keyword-list
      '((pseudo . "^ +[\x2a\x2022] :\\([^ \n,]+\\)")
        (at . "^ +[\x2a\x2022] @\\([^ \n,]+\\)")
        (descriptor . "^ +[\x2a\x2022] '\\([^ '\n]+\\)' (descriptor)")
        (media . "^ +[\x2a\x2022] '\\([^ '\n]+\\)' media group")
        (property . "^ +[\x2a\x2022] '\\([^ '\n]+\\)',")))
     (current-buffer))


Following diffed against Bazaar revision 100231

;;; ==============================

*** ediff3753M5g	2010-06-03 09:43:04.000000000 -0400
--- lisp/textmodes/css-mode.el	2010-06-03 09:42:43.000000000 -0400
***************
*** 41,49 ****

  (defun css-extract-keyword-list (res)
    (with-temp-buffer
!     (url-insert-file-contents "http://www.w3.org/TR/REC-CSS2/css2.txt")
      (goto-char (point-max))
!     (search-backward "Appendix H. Index")
      (forward-line)
      (delete-region (point-min) (point))
      (let ((result nil)
--- 41,49 ----

  (defun css-extract-keyword-list (res)
    (with-temp-buffer
!     (url-insert-file-contents
"http://www.w3.org/TR/2008/REC-CSS2-20080411/css2.txt")
      (goto-char (point-max))
!     (search-backward-regexp "[_━]\\{60,79\\}\xa[[:space:]]+Appendix
[A-M]\. Index")
      (forward-line)
      (delete-region (point-min) (point))
      (let ((result nil)
***************
*** 115,125 ****

  ;; Extraction was done with:
  ;; (css-extract-keyword-list
! ;;  '((pseudo . "^ +\\* :\\([^ \n,]+\\)")
! ;;    (at . "^ +\\* @\\([^ \n,]+\\)")
! ;;    (descriptor . "^ +\\* '\\([^ '\n]+\\)' (descriptor)")
! ;;    (media . "^ +\\* '\\([^ '\n]+\\)' media group")
! ;;    (property . "^ +\\* '\\([^ '\n]+\\)',")))

  (defconst css-pseudo-ids
    '("active" "after" "before" "first" "first-child" "first-letter"
"first-line"
--- 115,125 ----

  ;; Extraction was done with:
  ;; (css-extract-keyword-list
! ;;      '((pseudo . "^ +[\x2a\x2022] :\\([^ \n,]+\\)")
! ;;        (at . "^ +[\x2a\x2022] @\\([^ \n,]+\\)")
! ;;        (descriptor . "^ +[\x2a\x2022] '\\([^ '\n]+\\)' (descriptor)")
! ;;        (media . "^ +[\x2a\x2022] '\\([^ '\n]+\\)' media group")
! ;;        (property . "^ +[\x2a\x2022] '\\([^ '\n]+\\)',")))

  (defconst css-pseudo-ids
    '("active" "after" "before" "first" "first-child" "first-letter"
"first-line"

[css-mode.diff-2010-06-03 (application/octet-stream, attachment)]

Previous Next

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