[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el

[Glenn Morris]

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)