Re: [Orgmode] Bug: string-match-p does not exist in Emacs 22 [6.36trans (release_6.36.102.g67b5)]
Fixed, thanks. - Carsten On May 25, 2010, at 5:35 AM, Bernt Hansen wrote: Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See http://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org-mode mailing list. Commit 7831cb788504d4b44221f4a898b6cabaaed4c422 introduced a check using string-match-p which fails in Emacs 22. I'm trying to publish my org-mode document update and get the following stack dump -Bernt Debugger entered--Lisp error: (void-function string-match-p) (string-match-p ^// str) (and type (string-match-p ^// str)) (if (and type (string-match-p ^// str)) (concat type : str) str) (let ((str ...)) (if (and type ...) (concat type : str) str)) (setq thefile (let (...) (if ... ... str))) (let* ((filename path) (components-1 ...) (components-2 ...) (type ...) (thefile ...)) (cond (... ...) (t)) (setq thefile (let ... ...)) (if (and may-inline-p ...) (progn ... ...) (concat a href=\ thefile \ attr ... /a))) (progn (let* (... ... ... ... ...) (cond ... ...) (setq thefile ...) (if ... ... ...))) (unwind-protect (progn (let* ... ... ... ...)) (set-match-data save- match-data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (save-match-data (let* (... ... ... ... ...) (cond ... ...) (setq thefile ...) (if ... ... ...))) org-html-make-link((:latex-image-options width=10em :exclude-tags (noexport) :select-tags (export) :email be...@norang.ca :author Bernt Hansen :auto-postamble t :auto- preamble t :postamble nil :preamble nil :publishing-directory /ssh:www-d...@www :~/doc.norang.ca/htdocs :timestamp nil :expand-quoted-html t :html- table-tag table border=\2\ cellspacing=\0\ cellpadding=\6\ rules=\groups\ frame=\hsides\ :xml-declaration ((html . ? xml version=\1.0\ encoding=\%s\?) (php . ?php echo \?xml version=\\\1.0\\\ encoding=\\\%s\\\ ?\; ?)) :html-extension html :inline-images t :convert-org-links t :agenda-style :style- extra link rel=\stylesheet\ href=\http://doc.norang.ca/org.css \ type=\text/css\ / :style link rel=\stylesheet\ href=\/ org.css\ type=\text/css\ / :style-include-scripts t :style- include-default nil :table-auto-headline t :tables t :time-stamp- file t ...) file #(cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png 0 4 (org-attr nil face org-link org-label nil org-attributes nil org-caption nil font-lock-fontified t fontified t org-protected t org-no-description t) 4 40 (org-attr nil face org-link org-label nil org-attributes nil org-caption nil org-protected t org-no-description t) 40 46 (org- attr nil face org-link org-label nil org-attributes nil org-caption nil org-protected t org-no-description t) 46 49 (org-attr nil face org-link org-label nil org-attributes nil org-caption nil font-lock- fontified t fontified t org-protected t org-no-description t)) nil #(cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png 0 4 (face org- link fontified t font-lock-fontified t org-caption nil org- attributes nil org-label nil) 4 40 (face org-link org-caption nil org-attributes nil org-label nil) 40 46 (face org-link org-caption nil org-attributes nil org-label nil) 46 49 (face org-link fontified t font-lock-fontified t org-caption nil org-attributes nil org-label nil)) nil 45) (if (and (functionp link-validate) (not ...)) desc (org-html-make- link opt-plist file path-1 fragment-1 desc-2 attr (org-html-should- inline-p path-1 descp))) (setq rpl (if (and ... ...) desc (org-html-make-link opt-plist file path-1 fragment-1 desc-2 attr ...))) (let* ((components ...) (path-1 ...) (fragment-0 ...) (fragment-1 ...) (desc-2 ...)) (setq rpl (if ... desc ...))) (progn (let* (... ... ... ... ...) (setq rpl ...))) (unwind-protect (progn (let* ... ...)) (set-match-data save-match- data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (save-match-data (let* (... ... ... ... ...) (setq rpl ...))) (cond ((equal type internal) (let ... ...)) ((and ... ...) (save- match-data ... ...)) ((member type ...) (setq rpl ...)) ((member type ...) (setq rpl ...)) ((string= type coderef) (let* ... ...)) ((functionp ...) (setq rpl ...)) ((string= type file) (save-match- data ...)) (t (setq rpl ...))) (while (string-match org-bracket-link-analytic-regexp++ line start) (setq start (match-beginning 0)) (setq path (save-match-data ...)) (setq type (cond ... ... ...)) (setq path (org-extract- attributes ...)) (setq attr (get-text-property 0 ... path)) (setq desc1 (if ... ...) desc2 (if ... ... path) descp (and desc1 ...) desc (or desc1 desc2)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...))
Re: [Orgmode] Bug: string-match-p does not exist in Emacs 22 [6.36trans (release_6.36.102.g67b5)]
This works too. Thanks for the quick response. -Bernt Carsten Dominik carsten.domi...@gmail.com writes: Fixed, thanks. - Carsten On May 25, 2010, at 5:35 AM, Bernt Hansen wrote: Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See http://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org-mode mailing list. Commit 7831cb788504d4b44221f4a898b6cabaaed4c422 introduced a check using string-match-p which fails in Emacs 22. ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Bug: string-match-p does not exist in Emacs 22 [6.36trans (release_6.36.102.g67b5)]
Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See http://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org-mode mailing list. Commit 7831cb788504d4b44221f4a898b6cabaaed4c422 introduced a check using string-match-p which fails in Emacs 22. I'm trying to publish my org-mode document update and get the following stack dump -Bernt Debugger entered--Lisp error: (void-function string-match-p) (string-match-p ^// str) (and type (string-match-p ^// str)) (if (and type (string-match-p ^// str)) (concat type : str) str) (let ((str ...)) (if (and type ...) (concat type : str) str)) (setq thefile (let (...) (if ... ... str))) (let* ((filename path) (components-1 ...) (components-2 ...) (type ...) (thefile ...)) (cond (... ...) (t)) (setq thefile (let ... ...)) (if (and may-inline-p ...) (progn ... ...) (concat a href=\ thefile \ attr ... /a))) (progn (let* (... ... ... ... ...) (cond ... ...) (setq thefile ...) (if ... ... ...))) (unwind-protect (progn (let* ... ... ... ...)) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (save-match-data (let* (... ... ... ... ...) (cond ... ...) (setq thefile ...) (if ... ... ...))) org-html-make-link((:latex-image-options width=10em :exclude-tags (noexport) :select-tags (export) :email be...@norang.ca :author Bernt Hansen :auto-postamble t :auto-preamble t :postamble nil :preamble nil :publishing-directory /ssh:www-d...@www:~/doc.norang.ca/htdocs :timestamp nil :expand-quoted-html t :html-table-tag table border=\2\ cellspacing=\0\ cellpadding=\6\ rules=\groups\ frame=\hsides\ :xml-declaration ((html . ?xml version=\1.0\ encoding=\%s\?) (php . ?php echo \?xml version=\\\1.0\\\ encoding=\\\%s\\\ ?\; ?)) :html-extension html :inline-images t :convert-org-links t :agenda-style :style-extra link rel=\stylesheet\ href=\http://doc.norang.ca/org.css\; type=\text/css\ / :style link rel=\stylesheet\ href=\/org.css\ type=\text/css\ / :style-include-scripts t :style-include-default nil :table-auto-headline t :tables t :time-stamp-file t ...) file #(cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png 0 4 (org-attr nil face org-link org-label nil org-attributes nil org-caption nil font-lock-fontified t fontified t org-protected t org-no-description t) 4 40 (org-attr nil face org-link org-label nil org-attributes nil org-caption nil org-protected t org-no-description t) 40 46 (org-attr nil face org-link org-label nil org-attributes nil org-caption nil org-protected t org-no-description t) 46 49 (org-attr nil face org-link org-label nil org-attributes nil org-caption nil font-lock-fontified t fontified t org-protected t org-no-description t)) nil #(cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png 0 4 (face org-link fontified t font-lock-fontified t org-caption nil org-attributes nil org-label nil) 4 40 (face org-link org-caption nil org-attributes nil org-label nil) 40 46 (face org-link org-caption nil org-attributes nil org-label nil) 46 49 (face org-link fontified t font-lock-fontified t org-caption nil org-attributes nil org-label nil)) nil 45) (if (and (functionp link-validate) (not ...)) desc (org-html-make-link opt-plist file path-1 fragment-1 desc-2 attr (org-html-should-inline-p path-1 descp))) (setq rpl (if (and ... ...) desc (org-html-make-link opt-plist file path-1 fragment-1 desc-2 attr ...))) (let* ((components ...) (path-1 ...) (fragment-0 ...) (fragment-1 ...) (desc-2 ...)) (setq rpl (if ... desc ...))) (progn (let* (... ... ... ... ...) (setq rpl ...))) (unwind-protect (progn (let* ... ...)) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (save-match-data (let* (... ... ... ... ...) (setq rpl ...))) (cond ((equal type internal) (let ... ...)) ((and ... ...) (save-match-data ... ...)) ((member type ...) (setq rpl ...)) ((member type ...) (setq rpl ...)) ((string= type coderef) (let* ... ...)) ((functionp ...) (setq rpl ...)) ((string= type file) (save-match-data ...)) (t (setq rpl ...))) (while (string-match org-bracket-link-analytic-regexp++ line start) (setq start (match-beginning 0)) (setq path (save-match-data ...)) (setq type (cond ... ... ...)) (setq path (org-extract-attributes ...)) (setq attr (get-text-property 0 ... path)) (setq desc1 (if ... ...) desc2 (if ... ... path) descp (and desc1 ...) desc (or desc1 desc2)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)) (setq line (replace-match rpl t t line) start (+ start ...))) (catch (quote nextline) (when (and inquote ...) (insert /pre\n)
