Re: [Orgmode] getting Firefox tabs into org on a mac

[Andreas Burtzlaff]

On Fri, 23 Oct 2009 12:56:15 -0700
Samuel Wales <address@hidden> wrote:

> Minor correction and new error messages.
> 
> The process filter error message was probably due to not running the
> fireforg things in .emacs.  I had commented them out because they take
> several minutes to load the links in org-agenda-files, and when I
> restarted emacs to try to get fireforg to work, they didn't get run. 

Generating and looking up the registry doesn't scale well. With a huge
amount of links in the agenda files a proper database like sqlite would
be needed instead of generating a huge xml file that needs to be parsed
all the while. If I get time I might try that.

> Here are new error messages.
> 
> error in process filter: org-protocol-unhex-compound: Invalid
> character: 8211, #o20023, #x2013
> error in process filter: Invalid character: 8211, #o20023, #x2013

Using only the org-protocol bookmarks I get the same error with Emacs 22
but not with Emacs 23, when trying to remember the URL:
http://orgmode.org/worg/org-contrib/org-protocol.php

A full backtrace is attached.
8211 seems to be the &ndash in the title.

What Emacs version are you using?

Sebastian, any idea?

 -- Andreas


Debugger entered--Lisp error: (error "Invalid character: 8211, #o20023,
#x2013") char-to-string(8211)
  (concat ret (char-to-string sum))
  (setq ret (concat ret (char-to-string sum)))
  (progn (setq ret (concat ret ...)) (setq sum 0))
  (if (= 0 eat) (progn (setq ret ...) (setq sum 0)))
  (when (= 0 eat) (setq ret (concat ret ...)) (setq sum 0))
  (let* ((b ...) (a ...) (b ...) (c1 ...) (c2 ...) (val ...)
(shift ...) (xor ...)) (if (>= val 192) (setq eat shift)) (setq val
(logxor val xor)) (setq sum (+ ... val)) (if (> eat 0) (setq eat ...))
(when (= 0 eat) (setq ret ...) (setq sum 0))) (while bytes (let*
(... ... ... ... ... ... ... ...) (if ... ...) (setq val ...) (setq
sum ...) (if ... ...) (when ... ... ...))) (let* ((bytes ...) (ret "")
(eat 0) (sum 0)) (while bytes (let* ... ... ... ... ... ...)) ret)
org-protocol-unhex-compound("%20%E2%80%93%20") (let* ((start ...)
(end ...) (hex ...) (replacement ...)) (setq tmp (concat tmp ...
replacement)) (setq str (substring str end))) (while (string-match "\\(%
[0-9a-f][0-9a-f]\\)+" str) (let* (... ... ... ...) (setq tmp ...) (setq
str ...))) (let ((tmp "") (case-fold-search t)) (while (string-match "\
\(%[0-9a-f][0-9a-f]\\)+" str) (let* ... ... ...)) (setq tmp (concat tmp
str)) tmp) org-protocol-unhex-string("org-protocol.el%20%E2%80%93%
20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom%
20actions") mapcar(org-protocol-unhex-string ("http%3A%2F%2Forgmode.org%
2Fworg%2Forg-contrib%2Forg-protocol.php" "org-protocol.el%20%E2%80%93%
20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom%
20actions" "")) (if (fboundp unhexify) (mapcar unhexify split-parts)
(mapcar (quote org-protocol-unhex-string) split-parts)) (if unhexify
(if (fboundp unhexify) (mapcar unhexify split-parts) (mapcar ...
split-parts)) split-parts) (let* ((sep ...) (split-parts ...)) (if
unhexify (if ... ... ...) split-parts)) org-protocol-split-data("http%3A
%2F%2Forgmode.org%2Fworg%2Forg-contrib%
2Forg-protocol.php/org-protocol.el%20%E2%80%93%20Intercept%20calls%
20from%20emacsclient%20to%20trigger%20custom%20actions/" t) (let*
((parts ...) (template ...) (url ...) (type ...) (title ...)
(region ...) (orglink ...) remember-annotation-functions) (setq
org-stored-links (cons ... org-stored-links)) (kill-new orglink)
(org-store-link-props :type type :link url :description title :initial
region) (raise-frame) (org-remember nil (string-to-char template))) (if
(and (boundp ...) (fboundp ...)) (let* (... ... ... ... ... ... ...
remember-annotation-functions) (setq org-stored-links ...) (kill-new
orglink) (org-store-link-props :type type :link url :description
title :initial region) (raise-frame) (org-remember nil ...)) (message
"Org-mode not loaded.")) org-protocol-remember("http%3A%2F%2Forgmode.org
%2Fworg%2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93%
20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom%
20actions/") funcall(org-protocol-remember "http%3A%2F%2Forgmode.org%
2Fworg%2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93%
20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom%
20actions/") (throw (quote fname) (funcall func result)) (if greedy nil
(throw (quote fname) (funcall func result))) (unless greedy (throw
(quote fname) (funcall func result))) (progn (unless greedy
(throw ... ...)) (funcall func result) (throw (quote fname) t)) (if
(fboundp func) (progn (unless greedy ...) (funcall func result)
(throw ... t))) (when (fboundp func) (unless greedy (throw ... ...))
(funcall func result) (throw (quote fname) t)) (let* ((func ...)
(greedy ...) (splitted ...) (result ...)) (when
(plist-get ... :kill-client) (message "Greedy org-protocol handler.
Killing client.") (server-edit)) (when (fboundp func) (unless
greedy ...) (funcall func result) (throw ... t))) (progn (let*
(... ... ... ...) (when ... ... ...) (when ... ... ... ...))) (if
(string-match proto fname) (progn (let* ... ... ...))) (when
(string-match proto fname) (let* (... ... ... ...) (when ... ... ...)
(when ... ... ... ...))) (let ((proto ...)) (when (string-match proto
fname) (let* ... ... ...))) (while --cl-dolist-temp-- (setq prolist
(car --cl-dolist-temp--)) (let (...) (when ... ...)) (setq
--cl-dolist-temp-- (cdr --cl-dolist-temp--))) (let ((--cl-dolist-temp--
sub-protocols) prolist) (while --cl-dolist-temp-- (setq prolist ...)
(let ... ...) (setq --cl-dolist-temp-- ...)) nil) (catch (quote
--cl-block-nil--) (let (... prolist) (while
--cl-dolist-temp-- ... ... ...) nil)) (cl-block-wrapper (catch (quote
--cl-block-nil--) (let ... ... nil))) (block nil (let (... prolist)
(while --cl-dolist-temp-- ... ... ...) nil)) (dolist (prolist
sub-protocols) (let (...) (when ... ...))) (progn (dolist (prolist
sub-protocols) (let ... ...))) (if (string-match the-protocol fname)
(progn (dolist ... ...))) (when (string-match the-protocol fname)
(dolist (prolist sub-protocols) (let ... ...))) (let
((the-protocol ...)) (when (string-match the-protocol fname)
(dolist ... ...))) (catch (quote fname) (let (...) (when ... ...))
fname) (let ((sub-protocols ...)) (catch (quote fname) (let ... ...)
fname)) org-protocol-check-filename-for-protocol
("/home/andy/org-protocol:/remember:/http%3A%2F%2Forgmode.org%2Fworg%
2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93%20Intercept
%20calls%20from%20emacsclient%20to%20trigger%20custom%
20actions/" (("/home/andy/org-protocol:/remember:/http%3A%2F%
2Forgmode.org%2Fworg%2Forg-contrib%2Forg-protocol.php/org-protocol.el%
20%E2%80%93%20Intercept%20calls%20from%20emacsclient%20to%20trigger%
20custom%20actions/" 1 0)) (#<process server <*8*>>)) byte-code
(<bytecode removed> [flist var --cl-dolist-temp-- fname client files
nil expand-file-name org-protocol-check-filename-for-protocol t throw
greedy delq] 5) server-visit-files
((("/home/andy/org-protocol:/remember:/http%3A%2F%2Forgmode.org%2Fworg%
2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93%20Intercept
%20calls%20from%20emacsclient%20to%20trigger%20custom%20actions/" 1 0))
(#<process server <*8*>>) nil) byte-code(<bytecode removed> [proc
string prev --cl-proc-- default-enable-multibyte-characters
file-name-coding-system process-get :authenticated string-match "-auth \
\(.*?\\)\n" match-string 1 :auth-key 0 nil process-put t server-log
"Authentication successful" "Authentication failed" process-send-string
delete-process throw
--cl-block-server-process-filter-- :previous-string recursion-depth
run-with-timer make-symbol "--proc--" lambda (&rest --cl-rest--) apply #
[(G47000) <bytecode removed> [G47000 server-process-filter ""] 3] quote
--cl-rest-- top-level (byte-code <bytecode reoved> [mapc #[...
<bytecode removed> [buffer isearch-mode boundp isearch-cancel] 2]
buffer-list] 3) ((quit ...)) "\n" "[^ ]* " "-nowait" "-eval" "-display"
"\\([^ ]*\\) " server-unquote-arg err (byte-code <bytecode removed>
[display tmp-frame server-select-display] 2) ((error ...)) "\\`\\+[0-9]+
\\'" string-to-number ...] 10) server-process-filter(#<process server
<*8*>> "/home/andy/org-protocol://remember://http%3A%2F%2Forgmode.org%
2Fworg%2Forg-contrib%2Forg-protocol.php/org-protocol.el%20%E2%80%93%
20Intercept%20calls%20from%20emacsclient%20to%20trigger%20custom%
20actions/ \n")