Re: Feature Request: Auto-jumping to source file (.el) upon elisp error

[Andreas Röhler]

Am Montag, 10. Dezember 2007 15:27 schrieb Nordlöw:
> On Dec 10, 1:14 pm, Stefan Kamphausen <ska...@gmx.net> wrote:
> > Hi,
> >
> > "Nordlöw" <per.nord...@gmail.com> writes:
> > > But the top-most function, in your case produce-an-error(), is neither
> > > clickable nor mentioned about its file/buffer-origin in the Debugger
> > > output. This is sad because this is what the user/developer wants to
> > > see first in order to most easily understand the top-most (call-stack)
> > > context of the problem.
> >
> > you are right that the function is not clickable in the backtrace if
> > being added interactively.  It does work however, if it was written
> > into a separate file and then loaded via (e.g.) M-x load-file.
> >
> > Does that fit your needs?
> >
> > Regards,
> > Stefan
> > --
> > Stefan Kamphausen ---http://www.skamphausen.de
> > a blessed +42 regexp of confusion (weapon in hand)
> > You hit. The format string crumbles and turns to dust.
>
> Okey, thanks for your answer!
>
> Is it still possible to make Emacs automatically open top-most source
> code context in another window?
>
> Thanks again,
> Nordlöw

I use an adapted function `aktualisieren', which takes
arguments as C-h f does, but then opens the source if
available, narrowed to function mentioned. Code below.

Might that be a step forward?

Andreas Röhler

(defun aktualisieren (function)
  "Go to FUNCTION (a symbol), narrow to region."
  (interactive
   (let ((fn (save-excursion
               (beginning-of-defun)
               (forward-word 2)
               (if (featurep 'xemacs)
                   (function-at-point)
                 (function-called-at-point))))
         val)
     (list (intern-soft (completing-read (if fn
                                             (format "Describe function 
(default %s): " fn)
                                           "Describe function: ")
                                         obarray 'fboundp t nil nil 
(symbol-name fn))))))
  (if (file-readable-p
       ;; No effect, why?
       (condition-case nil
           (symbol-file function)
         (error "Keine Quelldatei gefunden")))
      (let* ((datei (symbol-file function)))
        (cond
         ((file-exists-p (concat (file-name-sans-extension datei) ".el"))
          (find-file (concat (file-name-sans-extension datei) ".el")))
         ((file-exists-p (concat (file-name-sans-extension datei) ".el.gz"))
          (find-file (concat (file-name-sans-extension datei) ".el.gz")))
         ((file-exists-p (concat datei ".gz"))
          (find-file (concat datei ".gz")))
         (t (error (concat "Keine Quelle vorhanden"))))
        ;; 2007-06-03 a.roehler@web.de changed section end      
        (widen)
        (goto-char (point-min))
        (cond 
         ((search-forward (concat "(defun " (symbol-name function)" ") nil t) 
;; 
Leerzeichen, um "-" in Funktionsnamen auszuschlie��ßen
          (progn
            (narrow-to-region (progn (beginning-of-defun) (point))(progn 
(end-of-defun) (point)))
            (delete-other-windows))) 
         ((progn (goto-char (point-min))
                 (re-search-forward (concat "(defalias '" (symbol-name 
function) " '\\([^)]+\\)") nil t 1))
          (progn
            (message " %s" (match-string-no-properties 1))
            (goto-char (point-min))
            (search-forward (match-string-no-properties 1))))
         ((progn (goto-char (point-min))
                 (re-search-forward (concat "\(define-.+" (symbol-name 
function) " *$") nil 
t 1))
          (message " %s" (match-string-no-properties 0)))
         (t (goto-char (point-min)))))
    (message "%s" "No file assigned, self-made function?")))

;;;;;;