From: Andreas Burtzlaff <andy13@gmx.net>
To: Samuel Wales <samologist@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: getting Firefox tabs into org on a mac
Date: Sun, 25 Oct 2009 00:53:57 +0200 [thread overview]
Message-ID: <20091025005357.5ce8894d.andy13@gmx.net> (raw)
In-Reply-To: <20524da70910231256g225d06ebx208d75f1595e01d@mail.gmail.com>
On Fri, 23 Oct 2009 12:56:15 -0700
Samuel Wales <samologist@gmail.com> 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")
next prev parent reply other threads:[~2009-10-24 22:53 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-10-20 3:40 getting Firefox tabs into org on a mac Samuel Wales
2009-10-20 8:12 ` Andreas Burtzlaff
2009-10-21 0:00 ` Andreas Burtzlaff
2009-10-23 18:31 ` Samuel Wales
2009-10-23 19:56 ` Samuel Wales
2009-10-24 22:53 ` Andreas Burtzlaff [this message]
2009-10-24 22:42 ` Andreas Burtzlaff
2009-10-20 10:22 ` James TD Smith
2009-10-21 3:45 ` Samuel Wales
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20091025005357.5ce8894d.andy13@gmx.net \
--to=andy13@gmx.net \
--cc=emacs-orgmode@gnu.org \
--cc=samologist@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).