Skip to content

Commit

Permalink
Add `apdl-ansys-help-path' is not configured message
Browse files Browse the repository at this point in the history
Introduce browse-url-of-file so that

(setq browse-url-browser-function 'eww-browse-url)

comes into effect.
  • Loading branch information
dieter-wilhelm committed Feb 15, 2020
1 parent 1a5035b commit 24c6b31
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions apdl-process.el
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
;;; apdl-process.el --- Managing runs and processes for APDL-Mode -*- lexical-binding: t; -*-
;; Time-stamp: <2020-02-12>
;; Time-stamp: <2020-02-15>

;; Copyright (C) 2006 - 2020 H. Dieter Wilhelm GPL V3

Expand Down Expand Up @@ -762,7 +762,7 @@ Element categories:
\"ALL\"INFINS -- Infinite Boundary/Solid elem.
\"ALL\"INTERS -- Interface magnetic/gasket/cohesive elem.
\"ALL\"LINKS -- Link radiation/conduction/convection/thermal-electric/spar/\
elem.
elem.
\"ALL\"MASS -- Mass elem
\"ALL\"MATRIXS -- Matrix stiffness/damping/super elem
\"ALL\"MESHS -- Mesh facet elem.
Expand All @@ -783,6 +783,8 @@ Element categories:
(let (file
(path apdl-ansys-help-path)
command)
(unless path
(error "Error: `apdl-ansys-help-path' is not configured"))
(if arg
(setq command (completing-read "Browse help for keyword: "
apdl-help-index))
Expand Down Expand Up @@ -810,7 +812,7 @@ Element categories:
(setq file (concat "ai_rn/" file)))
((string-match "ansys.theory" file)
(setq file (concat "ans_thry/" file))))
(browse-url-default-browser (concat "file://" path file))))
(browse-url-of-file (concat "file://" path file))))

(defun apdl-process-status ()
"Show the process status in the Emacs command line (minibuffer).
Expand Down

0 comments on commit 24c6b31

Please sign in to comment.