branch: externals/idlwave commit 2f9e39c58790cc0c72d7099910e66e4f21c3182a Author: JD Smith <93749+jdtsm...@users.noreply.github.com> Commit: JD Smith <93749+jdtsm...@users.noreply.github.com>
indent changes --- idlw-scan.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/idlw-scan.el b/idlw-scan.el index ef833dbd29..cec7db4c65 100644 --- a/idlw-scan.el +++ b/idlw-scan.el @@ -880,6 +880,7 @@ force directory search." (let* ((content-path (idlwave-html-help-location)) (help-path (file-name-directory content-path)) (alias-file (expand-file-name "Data/Alias.xml" help-path))) + (message "Linking help file info...") (if (file-exists-p alias-file) (let ((aliases (cdar (xml-parse-file alias-file))) elem alias-list) @@ -917,14 +918,14 @@ force directory search." (car link) (string-match "\\.htm[^.]*\\'" (car link)) (setq linkfile - (idlwave-alias-path - (car link) alias-list content-path - (if (and class - (setq class-entry - (assoc class - idlwave-system-class-info))) - (file-name-directory - (nth 1 (assq 'link class-entry))))))) + (idlwave-alias-path + (car link) alias-list content-path + (if (and class + (setq class-entry + (assoc class + idlwave-system-class-info))) + (file-name-directory + (nth 1 (assq 'link class-entry))))))) (setcar link linkfile))))) idlwave-system-routines)