3202 (defvar my/java-exeption-dirs nil

  3203   "List of dirs to look by `my/java-exeption'.")

  3204 

  3205 (defun my/java-exeption ()

  3206   "Look at current line if it like Java exaption and try find file using `my/java-exeption-dirs'"

  3207   (interactive)

  3208   (save-excursion

  3209     (let ( path file line end )

  3210       (forward-line 1)

  3211       (backward-char 1)

  3212       (setq end (point))

  3213       (forward-line 0)

  3214       (if (not (re-search-forward "^\\s-+at \\([a-zA-Z0-9.$]+\\)(\\([^.]+\\)\\.java:\\([1-9][0-9]*\\))" end t))

  3215           (message "Current line doesn't look like Java exeption or lack necessary information...")

  3216         (setq file (match-string 2))

  3217         (setq line (match-string 3))

  3218         (setq path (match-string 1))

  3219         (setq path (replace-regexp-in-string (concat "\\." file ".*") "" path))

  3220         (setq path (replace-regexp-in-string "\\." "/" path))

  3221         (setq path (cl-some (lambda (dir)

  3222                               (let ((full-path (format "%s/%s/%s.java" dir path file)))

  3223                                 (when (file-exists-p full-path) full-path)))

  3224                             my/java-exeption-dirs))

  3225         (if (not path)

  3226             (message "Can't find file %s.java" file)

  3227           (find-file-other-window path)

  3228           (goto-line (string-to-int line)))))))

  3229 

  3230 (my--eval-after-load log4-hi-mode

  3231   (define-key log4-hi-mode-map [C-return] #'my/java-exeption))

  3232