(idlwave-beginning-of-subprogram, idlwave-end-of-subprogram): Take

optional NOMARK arg to prevent pushing mark.
(idlwave-current-routine): Don't push mark.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b3245e90f153caab296e0ca7e4fa790db6cb4b7..2016d242ab5879fa56c54e05e30c6be515a4c67a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2007-04-25  J.D. Smith  <jdsmith@as.arizona.edu>
+
+       * progmodes/idlwave.el (idlwave-beginning-of-subprogram,
+       idlwave-end-of-subprogram): Take optional NOMARK arg to prevent
+       pushing mark.
+       (idlwave-current-routine): Don't push mark.
+
 2007-04-25  Mathias Dahl  <mathias.dahl@gmail.com>
 
        * image-dired.el (image-dired-display-image): Derive image-type

diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index d29e56ce75daffd39db2251a8fd56715624769de..0556c87b43dcb48636a87845c6c11c9f3ce7f1f0 100644 (file)
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -2411,16 +2411,18 @@ non-nil."
     ;; Reindent new line
     (idlwave-indent-line)))
 
-(defun idlwave-beginning-of-subprogram ()
-  "Moves point to the beginning of the current program unit."
+(defun idlwave-beginning-of-subprogram (&optional nomark)
+  "Moves point to the beginning of the current program unit.
+If NOMARK is non-nil, do not push mark."
   (interactive)
-  (idlwave-find-key idlwave-begin-unit-reg -1))
+  (idlwave-find-key idlwave-begin-unit-reg -1 nomark))
 
-(defun idlwave-end-of-subprogram ()
-  "Moves point to the start of the next program unit."
+(defun idlwave-end-of-subprogram (&optional nomark)
+  "Moves point to the start of the next program unit.
+If NOMARK is non-nil, do not push mark."
   (interactive)
   (idlwave-end-of-statement)
-  (idlwave-find-key idlwave-end-unit-reg 1))
+  (idlwave-find-key idlwave-end-unit-reg 1 nomark))
 
 (defun idlwave-mark-statement ()
   "Mark current IDL statement."
@@ -2535,7 +2537,7 @@ The marks are pushed."
   "Return (NAME TYPE CLASS) of current routine."
   (idlwave-routines)
   (save-excursion
-    (idlwave-beginning-of-subprogram)
+    (idlwave-beginning-of-subprogram 'nomark)
     (if (looking-at "[ \t]*\\<\\(pro\\|function\\)\\>\\s-+\\(\\([a-zA-Z0-9$_]+\\)::\\)?\\([a-zA-Z0-9$_]+\\)")
        (let* ((type (if (string= (downcase (match-string 1)) "pro")
                         'pro 'function))