Mercurial > hg > xemacs-beta

comparison lisp/modes/fortran.el @ 76:c0c698873ce1 r20-0b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents 131b0175ea99
children 34a5b81f86ba
comparison
equal deleted inserted replaced
75:a4e0195b387b 76:c0c698873ce1
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 e)))) 716 (setq unread-command-events (list 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 char)))))) 783 (setq unread-command-events (list 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)