Mercurial > emacs
comparison lisp/progmodes/modula2.el @ 659:505130d1ddf8
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Sat, 30 May 1992 22:12:04 +0000 |
parents | 1e0bc00dca7a |
children | 3587b3dfac25 |
comparison
equal
deleted
inserted
replaced
658:7cbd4fcd8b0f | 659:505130d1ddf8 |
---|---|
1 ; Modula-2 editing support package | 1 ;;; modula2.el --- Modula-2 editing support package |
2 | |
2 ; Author Mick Jordan | 3 ; Author Mick Jordan |
3 ; amended Peter Robinson | 4 ; amended Peter Robinson |
4 ; ported to GNU Michael Schmidt | 5 ; ported to GNU Michael Schmidt |
5 ;;;From: "Michael Schmidt" <michael@pbinfo.UUCP> | 6 ;;;From: "Michael Schmidt" <michael@pbinfo.UUCP> |
6 ;;;Modified by Tom Perrine <Perrin@LOGICON.ARPA> (TEP) | 7 ;;;Modified by Tom Perrine <Perrin@LOGICON.ARPA> (TEP) |
435 (find-file-other-window | 436 (find-file-other-window |
436 (concat (substring (buffer-name) 0 -3) ".md"))) | 437 (concat (substring (buffer-name) 0 -3) ".md"))) |
437 ((string-equal (substring (buffer-name) -3) ".md") | 438 ((string-equal (substring (buffer-name) -3) ".md") |
438 (find-file-other-window | 439 (find-file-other-window |
439 (concat (substring (buffer-name) 0 -3) ".mi"))))) | 440 (concat (substring (buffer-name) 0 -3) ".mi"))))) |
441 | |
442 ;;; modula2.el ends here |