[Emacs-diffs] Changes to emacs/lisp/progmodes/idlwave.el, v [EMACS_22_BASE]

[John-David T. Smith]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     John-David T. Smith <jdsmith>   07/04/26 17:54:40

Index: idlwave.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/idlwave.el,v
retrieving revision 3.60
retrieving revision 3.60.2.1
diff -u -b -r3.60 -r3.60.2.1
--- idlwave.el  1 Apr 2007 16:42:11 -0000       3.60
+++ idlwave.el  26 Apr 2007 17:54:40 -0000      3.60.2.1
@@ -2411,16 +2411,18 @@
     ;; Reindent new line
     (idlwave-indent-line)))
 
-(defun idlwave-beginning-of-subprogram ()
-  "Moves point to the beginning of the current program unit."
-  (interactive)
-  (idlwave-find-key idlwave-begin-unit-reg -1))
-
-(defun idlwave-end-of-subprogram ()
-  "Moves point to the start of the next 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 nomark))
+
+(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 @@
   "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))