Mercurial > hg > xemacs-beta

comparison lisp/modes/fortran.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 49a24b4fd526
children c0c698873ce1
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
711 (setq e (next-command-event) 711 (setq e (next-command-event)
712 c (event-to-character e)) 712 c (event-to-character e))
713 ;; insert char if not equal to `?' 713 ;; insert char if not equal to `?'
714 (if (or (= c ??) (eq c help-char)) 714 (if (or (= c ??) (eq c help-char))
715 (fortran-abbrev-help) 715 (fortran-abbrev-help)
716 (setq unread-command-events (list e))))) 716 (setq unread-command-events e))))
717 717
718 (defun fortran-abbrev-help () 718 (defun fortran-abbrev-help ()
719 "List the currently defined abbrevs in Fortran mode." 719 "List the currently defined abbrevs in Fortran mode."
720 (interactive) 720 (interactive)
721 (message "Listing abbrev table...") 721 (message "Listing abbrev table...")
778 (if (not (equal (fortran-window-create) 'error)) 778 (if (not (equal (fortran-window-create) 'error))
779 (progn (message "Type SPC to continue editing.") 779 (progn (message "Type SPC to continue editing.")
780 ;; XEmacs change 780 ;; XEmacs change
781 (let ((char (next-command-event))) 781 (let ((char (next-command-event)))
782 (or (equal (event-to-character char) ? ) 782 (or (equal (event-to-character char) ? )
783 (setq unread-command-events (list char))))))) 783 (setq unread-command-events char))))))
784 (fortran-window-create))) 784 (fortran-window-create)))
785 785
786 (defun fortran-split-line () 786 (defun fortran-split-line ()
787 "Break line at point and insert continuation marker and alignment." 787 "Break line at point and insert continuation marker and alignment."
788 (interactive) 788 (interactive)