From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andreas Burtzlaff Subject: Re: getting Firefox tabs into org on a mac Date: Sun, 25 Oct 2009 00:53:57 +0200 Message-ID: <20091025005357.5ce8894d.andy13@gmx.net> References: <20524da70910192040r2858d89ew90d8d955ec5caf7f@mail.gmail.com> <20091020101242.dbd48ea8.andy13@gmx.net> <20091021020007.379d80b9.andy13@gmx.net> <20524da70910231131w633472a6ve0e1337b09216b07@mail.gmail.com> <20524da70910231256g225d06ebx208d75f1595e01d@mail.gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N1pUS-0003bh-W7 for emacs-orgmode@gnu.org; Sat, 24 Oct 2009 18:53:41 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N1pUN-0003bE-G4 for emacs-orgmode@gnu.org; Sat, 24 Oct 2009 18:53:39 -0400 Received: from [199.232.76.173] (port=47214 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N1pUN-0003bB-B2 for emacs-orgmode@gnu.org; Sat, 24 Oct 2009 18:53:35 -0400 Received: from mail.gmx.net ([213.165.64.20]:35886) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1N1pUM-0001F8-IX for emacs-orgmode@gnu.org; Sat, 24 Oct 2009 18:53:35 -0400 In-Reply-To: <20524da70910231256g225d06ebx208d75f1595e01d@mail.gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Samuel Wales Cc: emacs-orgmode@gnu.org On Fri, 23 Oct 2009 12:56:15 -0700 Samuel Wales 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)) (#>)) byte-code ( [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)) (#>) nil) byte-code( [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) [G47000 server-process-filter ""] 3] quote --cl-rest-- top-level (byte-code [mapc #[... [buffer isearch-mode boundp isearch-cancel] 2] buffer-list] 3) ((quit ...)) "\n" "[^ ]* " "-nowait" "-eval" "-display" "\\([^ ]*\\) " server-unquote-arg err (byte-code [display tmp-frame server-select-display] 2) ((error ...)) "\\`\\+[0-9]+ \\'" string-to-number ...] 10) server-process-filter(#> "/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")