Mercurial > hg > xemacs-beta

comparison lisp/modes/fortran.el @ 10:49a24b4fd526 r19-15b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b6
author cvs
date Mon, 13 Aug 2007 08:47:52 +0200
parents ac2d302a0011
children 131b0175ea99
comparison
equal deleted inserted replaced
9:6f2bbbbbe05a 10:49a24b4fd526
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)