[O] Is this (error (error ...)) form intentional?

[Marcin Borkowski]

>From org.el:

--8<---------------cut here---------------start------------->8---
(defun org-back-to-heading (&optional invisible-ok)
  "Call `outline-back-to-heading', but provide a better error message."
  (condition-case nil
      (outline-back-to-heading invisible-ok)
    (error (error "Before first headline at position %d in buffer %s"
                  (point) (current-buffer)))))
--8<---------------cut here---------------end--------------->8---

Frankly, I don't see the point of nesting `error'.

Best,

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Faculty of Mathematics and Computer Science
Adam Mickiewicz University