From 77ae614b7687bfc7998216258be0571023f7f2f8 Mon Sep 17 00:00:00 2001 From: "J.D. Smith" Date: Wed, 25 Apr 2007 20:44:54 +0000 Subject: [PATCH] (idlwave-beginning-of-subprogram, idlwave-end-of-subprogram): Take optional NOMARK arg to prevent pushing mark. (idlwave-current-routine): Don't push mark. --- lisp/ChangeLog | 7 +++++++ lisp/progmodes/idlwave.el | 16 +++++++++------- 2 files changed, 16 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1b3245e90f1..2016d242ab5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2007-04-25 J.D. Smith + + * 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 * image-dired.el (image-dired-display-image): Derive image-type diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index d29e56ce75d..0556c87b43d 100644 --- 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)) -- 2.39.2