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."
