[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el |
Date: |
Sun, 28 Apr 2002 18:15:51 -0400 |
Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.39 emacs/lisp/progmodes/f90.el:1.40
*** emacs/lisp/progmodes/f90.el:1.39 Sun Apr 28 18:09:55 2002
--- emacs/lisp/progmodes/f90.el Sun Apr 28 18:15:51 2002
***************
*** 1215,1223 ****
(message "No end found.")
nil)))
(defun f90-mark-subprogram ()
! "Put mark at end of F90 subprogram, point at beginning.
! Marks are pushed and highlight (grey shadow) is turned on."
(interactive)
(let ((pos (point)) program)
(f90-end-of-subprogram)
--- 1215,1228 ----
(message "No end found.")
nil)))
+ (defvar f90-mark-subprogram-overlay nil
+ "Used internally by `f90-mark-subprogram' to highlight the subprogram.")
+ (make-variable-buffer-local 'f90-mark-subprogram-overlay)
+
(defun f90-mark-subprogram ()
! "Put mark at end of F90 subprogram, point at beginning, push marks.
! If called interactively, highlight the subprogram with the face `highlight'.
! Call again to remove the highlighting."
(interactive)
(let ((pos (point)) program)
(f90-end-of-subprogram)
***************
*** 1228,1234 ****
(if f90-xemacs-flag
(zmacs-activate-region)
(setq mark-active t
! deactivate-mark nil))
program))
(defun f90-comment-region (beg-region end-region)
--- 1233,1246 ----
(if f90-xemacs-flag
(zmacs-activate-region)
(setq mark-active t
! deactivate-mark nil)
! (if (interactive-p)
! (if (overlayp f90-mark-subprogram-overlay)
! (if (overlay-buffer f90-mark-subprogram-overlay)
! (delete-overlay f90-mark-subprogram-overlay)
! (move-overlay f90-mark-subprogram-overlay (point) (mark)))
! (setq f90-mark-subprogram-overlay (make-overlay (point) (mark)))
! (overlay-put f90-mark-subprogram-overlay 'face 'highlight))))
program))
(defun f90-comment-region (beg-region end-region)
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Stefan Monnier, 2002/04/02
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Stefan Monnier, 2002/04/02
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Eli Zaretskii, 2002/04/19
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/04/24
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/04/24
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/04/25
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/04/28
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/04/28
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/04/28
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/04/29
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/04/29