From mboxrd@z Thu Jan 1 00:00:00 1970 From: Frank Rust Subject: Re: Cannot use org-mode and remember templates Date: Thu, 16 Jul 2009 18:32:25 +0200 Message-ID: <6683149f0907160932h223df5fem75f8365b8960f908@mail.gmail.com> References: <6683149f0907160338kf3f6564t6dc313ffd1e4353d@mail.gmail.com> <13661.1247754819@gamaville.dokosmarshall.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============1040310461==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MRTsm-0007y3-12 for emacs-orgmode@gnu.org; Thu, 16 Jul 2009 12:32:32 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MRTsi-0007tr-22 for emacs-orgmode@gnu.org; Thu, 16 Jul 2009 12:32:31 -0400 Received: from [199.232.76.173] (port=39765 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MRTsh-0007tc-P6 for emacs-orgmode@gnu.org; Thu, 16 Jul 2009 12:32:27 -0400 Received: from mail-fx0-f217.google.com ([209.85.220.217]:35422) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MRTsh-0000t2-9O for emacs-orgmode@gnu.org; Thu, 16 Jul 2009 12:32:27 -0400 Received: by fxm17 with SMTP id 17so271842fxm.42 for ; Thu, 16 Jul 2009 09:32:25 -0700 (PDT) In-Reply-To: <13661.1247754819@gamaville.dokosmarshall.org> 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: nicholas.dokos@hp.com Cc: emacs-orgmode@gnu.org --===============1040310461== Content-Type: multipart/alternative; boundary=001636c5b52e8891ee046ed5371f --001636c5b52e8891ee046ed5371f Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit > > Please provide a backtrace: set the variable `debug-on-error' to t, e.g. > by doing > > M-x set-vardebug-on-errort > > > and do whatever is necessary to produce the error - the backtrace should > appear in a buffer called '*Backtrace*. Debugger entered--Lisp error: (wrong-type-argument listp 5) org-current-time() org-remember-apply-template() run-hooks(text-mode-hook remember-mode-hook) apply(run-hooks (text-mode-hook remember-mode-hook)) run-mode-hooks(remember-mode-hook) remember-mode() remember(nil) call-interactively(remember nil nil) > If you can do that with > uncompiled code, that is vastly preferable: do > > M-x load-library org-remember.el > > first and then try to produce the error. > Debugger entered--Lisp error: (wrong-type-argument listp 5) org-current-time() (or org-overriding-default-time (org-current-time)) (let* ((entry ...) (ct ...) (dct ...) (ct1 ...) (tpl ...) (plist-p ...) (file ...) (headline ...) (v-c ...) (v-x ...) (v-t ...) (v-T ...) (v-u ...) (v-U ...) (v-i ...) (v-a ...) (clipboards ...) (v-A ...) (v-n user-full-name) (v-k ...) (v-K ...) v-I (org-startup-folded nil) (org-inhibit-startup t) org-time-was-given org-end-time-was-given x prompt completions char time pos default histvar) (when (functionp file) (setq file ...)) (when (and file ...) (setq file ...)) (setq org-store-link-plist (append ... org-store-link-plist)) (unless tpl (setq tpl "") (message "No template") (ding) (sit-for 1)) (erase-buffer) (insert (substitute-command-keys ...)) (insert tpl) (goto-char (point-min)) (while (re-search-forward "%\\([tTuUaiAcxkKI]\\)" nil t) (when ... ...) (replace-match ... t t)) (goto-char (point-min)) (while (re-search-forward "%\\[\\(.+\\)\\]" nil t) (let ... ... ... ...)) (goto-char (point-min)) (while (re-search-forward "%\\((.+)\\)" nil t) (goto-char ...) (let ... ... ...)) (when plist-p (goto-char ...) (while ... ...)) (let (...) (org-mode) (org-remember-mode 1)) (if (and file ... ...) (org-set-local ... file)) (if headline (org-set-local ... headline)) (goto-char (point-min)) (while (re-search-forward "%^\\({\\([^}]*\\)}\\)?\\([gGtTuUCLp]\\)?" nil t) (setq char ... prompt ...) (goto-char ...) (replace-match "") (setq completions nil default nil) (when prompt ...) (cond ... ... ... ... ... ...)) (goto-char (point-min)) (if (re-search-forward "%\\?" nil t) (replace-match "") (and ... ...))) (if org-remember-templates (let* (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... v-I ... ... org-time-was-given org-end-time-was-given x prompt completions char time pos default histvar) (when ... ...) (when ... ...) (setq org-store-link-plist ...) (unless tpl ... ... ... ...) (erase-buffer) (insert ...) (insert tpl) (goto-char ...) (while ... ... ...) (goto-char ...) (while ... ...) (goto-char ...) (while ... ... ...) (when plist-p ... ...) (let ... ... ...) (if ... ...) (if headline ...) (goto-char ...) (while ... ... ... ... ... ... ...) (goto-char ...) (if ... ... ...)) (let (...) (org-mode) (org-remember-mode 1))) org-remember-apply-template() run-hooks(text-mode-hook remember-mode-hook) apply(run-hooks (text-mode-hook remember-mode-hook)) run-mode-hooks(remember-mode-hook) remember-mode() remember(nil) call-interactively(remember nil nil) recursive-edit() byte-code(" xxxxxxxx --> bytecode" [unread-command-char debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 4) debug(error (wrong-type-argument listp 5)) org-current-time() org-remember-apply-template() run-hooks(text-mode-hook remember-mode-hook) apply(run-hooks (text-mode-hook remember-mode-hook)) run-mode-hooks(remember-mode-hook) remember-mode() remember(nil) call-interactively(remember nil nil) > > Thanks, > Nick > I hope this helps. Thanks and regards, Frank --001636c5b52e8891ee046ed5371f Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
Please provide a backtrace: set the variable `debug-on-error'= to t, e.g.
by doing

=C2=A0 M-x set-var<RET>debug-on-error<RET>t<RET>


and do whatever is necessary to produce the error - the backtrace should appear in a buffer called '*Backtrace*.

Debugger = entered--Lisp error: (wrong-type-argument listp 5)
=C2=A0 org-current-ti= me()
=C2=A0 org-remember-apply-template()
=C2=A0 run-hooks(text-mode-= hook remember-mode-hook)
=C2=A0 apply(run-hooks (text-mode-hook remember-mode-hook))
=C2=A0 run-m= ode-hooks(remember-mode-hook)
=C2=A0 remember-mode()
=C2=A0 remember(= nil)
=C2=A0 call-interactively(remember nil nil)

=C2=A0
If you can do that with
uncompiled code, that is vastly preferable: do

=C2=A0M-x load-library <RET>org-remember.el<RET>

first and then try to produce the error.


Debugger entered--Lisp error: (wrong-type-argumen= t listp 5)
=C2=A0 org-current-time()
=C2=A0 (or org-overriding-defaul= t-time (org-current-time))
=C2=A0 (let* ((entry ...) (ct ...) (dct ...) = (ct1 ...) (tpl ...) (plist-p ...) (file ...) (headline ...) (v-c ...) (v-x = ...) (v-t ...) (v-T ...) (v-u ...) (v-U ...) (v-i ...) (v-a ...) (clipboard= s ...) (v-A ...) (v-n user-full-name) (v-k ...) (v-K ...) v-I (org-startup-= folded nil) (org-inhibit-startup t) org-time-was-given org-end-time-was-giv= en x prompt completions char time pos default histvar) (when (functionp fil= e) (setq file ...)) (when (and file ...) (setq file ...)) (setq org-store-l= ink-plist (append ... org-store-link-plist)) (unless tpl (setq tpl "&q= uot;) (message "No template") (ding) (sit-for 1)) (erase-buffer) = (insert (substitute-command-keys ...)) (insert tpl) (goto-char (point-min))= (while (re-search-forward "%\\([tTuUaiAcxkKI]\\)" nil t) (when .= .. ...) (replace-match ... t t)) (goto-char (point-min)) (while (re-search-= forward "%\\[\\(.+\\)\\]" nil t) (let ... ... ... ...)) (goto-cha= r (point-min)) (while (re-search-forward "%\\((.+)\\)" nil t) (go= to-char ...) (let ... ... ...)) (when plist-p (goto-char ...) (while ... ..= .)) (let (...) (org-mode) (org-remember-mode 1)) (if (and file ... ...) (or= g-set-local ... file)) (if headline (org-set-local ... headline)) (goto-cha= r (point-min)) (while (re-search-forward "%^\\({\\([^}]*\\)}\\)?\\([gG= tTuUCLp]\\)?" nil t) (setq char ... prompt ...) (goto-char ...) (repla= ce-match "") (setq completions nil default nil) (when prompt ...)= (cond ... ... ... ... ... ...)) (goto-char (point-min)) (if (re-search-for= ward "%\\?" nil t) (replace-match "") (and ... ...))) =C2=A0 (if org-remember-templates (let* (... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... v-I ... ... org-time-was-= given org-end-time-was-given x prompt completions char time pos default his= tvar) (when ... ...) (when ... ...) (setq org-store-link-plist ...) (unless= tpl ... ... ... ...) (erase-buffer) (insert ...) (insert tpl) (goto-char .= ..) (while ... ... ...) (goto-char ...) (while ... ...) (goto-char ...) (wh= ile ... ... ...) (when plist-p ... ...) (let ... ... ...) (if ... ...) (if = headline ...) (goto-char ...) (while ... ... ... ... ... ... ...) (goto-cha= r ...) (if ... ... ...)) (let (...) (org-mode) (org-remember-mode 1)))
=C2=A0 org-remember-apply-template()
=C2=A0 run-hooks(text-mode-hook rem= ember-mode-hook)
=C2=A0 apply(run-hooks (text-mode-hook remember-mode-ho= ok))
=C2=A0 run-mode-hooks(remember-mode-hook)
=C2=A0 remember-mode()=
=C2=A0 remember(nil)
=C2=A0 call-interactively(remember nil nil)
=C2=A0 recursive-edit()
= =C2=A0 byte-code(" xxxxxxxx --> bytecode" [unread-command-char= debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1= debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-= mode debugger-setup-buffer count-lines 2 "...\n" message "%s= " buffer-string kill-emacs "" nil recursive-edit middlestart= buffer-read-only standard-output] 4)
=C2=A0 debug(error (wrong-type-argument listp 5))
=C2=A0 org-current-tim= e()
=C2=A0 org-remember-apply-template()
=C2=A0 run-hooks(text-mode-h= ook remember-mode-hook)
=C2=A0 apply(run-hooks (text-mode-hook remember-= mode-hook))
=C2=A0 run-mode-hooks(remember-mode-hook)
=C2=A0 remember-mode()
=C2=A0 remember(nil)
=C2=A0 call-interactively= (remember nil nil)
=C2=A0

Thanks,
Nick

I hope this helps.

Thanks and regards,=
Frank

--001636c5b52e8891ee046ed5371f-- --===============1040310461== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --===============1040310461==--