[O] [BUG] org-agenda-goto-today from end of agenda buffer fails / OS-X only

[Juan Pechiar]

A very minor bug when jumping to today from agenda buffer, on Emacs
for OS-X.

To reproduce:

On the weekly agenda buffer (C-c a a):
 - switch to a week other than the current week (e.g. press 'f')
 - go to the end of the buffer ('M->')
 - call org-agenda-goto-today (press '.')

This operation fails with

    'call-interactively: Wrong type argument: consp, nil'

The following setf fails because org-agenda-overriding-arguments is nil:

    (setf (nth 1 org-agenda-overriding-arguments) sd)

The value of org-agenda-overriding-arguments is set to

    (get-text-property (point) 'org-last-args)

So apparently, at end of agenda buffer (not on this week), this last
expression returns nil.

I get this error on Emacs for OSX (GNU Emacs 24.1.50.1
(x86_64-apple-darwin, NS apple-appkit-1038.36)), running Emacs -q or
otherwise, with latest org-mode development version (Org-mode version
7.9.1 (release_7.9.1-421-ge54882)).

Error does not occur on Linux.

Call trace:

Debugger entered--Lisp error: (wrong-type-argument consp nil)
  setcar(nil 734770)
  (let* ((c (nthcdr 1 org-agenda-overriding-arguments))) (setcar c sd))
  (setf (nth 1 org-agenda-overriding-arguments) sd)
  (let* ((sd (org-agenda-compute-starting-span (org-today) (or curspan 
org-agenda-ndays org-agenda-span))) (org-agenda-overriding-arguments args)) 
(setf (nth 1 org-agenda-overriding-arguments) sd) (org-agenda-redo) 
(org-agenda-find-same-or-today-or-agenda))
  (cond (tdpos (goto-char tdpos)) ((eq org-agenda-type (quote agenda)) (let* 
((sd (org-agenda-compute-starting-span (org-today) (or curspan org-agenda-ndays 
org-agenda-span))) (org-agenda-overriding-arguments args)) (setf (nth 1 
org-agenda-overriding-arguments) sd) (org-agenda-redo) 
(org-agenda-find-same-or-today-or-agenda))) (t (error "Cannot find today")))
  (let* ((args (get-text-property (point) (quote org-last-args))) (curspan (nth 
2 args)) (tdpos (text-property-any (point-min) (point-max) (quote org-today) 
t))) (cond (tdpos (goto-char tdpos)) ((eq org-agenda-type (quote agenda)) (let* 
((sd (org-agenda-compute-starting-span (org-today) (or curspan org-agenda-ndays 
org-agenda-span))) (org-agenda-overriding-arguments args)) (setf (nth 1 
org-agenda-overriding-arguments) sd) (org-agenda-redo) 
(org-agenda-find-same-or-today-or-agenda))) (t (error "Cannot find today"))))
  org-agenda-goto-today()
  call-interactively(org-agenda-goto-today nil nil)

Thanks,
.j.