branch: externals/idlwave commit 37ed984b72b544aeced02b559dfc47daeb1c70fa Author: JD Smith <jdtsm...@gmail.com> Commit: JD Smith <jdtsm...@gmail.com>
Changelog support New routine idlwave-current-routine-fullname used in ChangeLog data --- idlwave.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/idlwave.el b/idlwave.el index ae7a71e87a..99de22c49e 100644 --- a/idlwave.el +++ b/idlwave.el @@ -1943,6 +1943,10 @@ The main features of this mode are (set (make-local-variable 'paragraph-ignore-fill-prefix) nil) (set (make-local-variable 'parse-sexp-ignore-comments) t) + ;; ChangeLog + (set (make-local-variable 'add-log-current-defun-function) + 'idlwave-current-routine-fullname) + ;; Set tag table list to use IDLTAGS as file name. (if (boundp 'tag-table-alist) (add-to-list 'tag-table-alist '("\\.pro$" . "IDLTAGS"))) @@ -2530,6 +2534,9 @@ The marks are pushed." (message "Could not find doc library header start.") (goto-char here))))) +(defun idlwave-current-routine-fullname () + (let ((name (idlwave-current-routine))) + (idlwave-make-full-name (nth 2 name) (car name)))) (defun idlwave-current-routine () "Return (NAME TYPE CLASS) of current routine."