> > 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