Mercurial > hg > xemacs-beta

comparison lisp/modes/rexx-mode.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children 34a5b81f86ba
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
23 ;;; Synched up with: Not in FSF. 23 ;;; Synched up with: Not in FSF.
24 24
25 ;;; AUTHOR 25 ;;; AUTHOR
26 ;;; Anders Lindgren, d91ali@csd.uu.se 26 ;;; Anders Lindgren, d91ali@csd.uu.se
27 ;;; 27 ;;;
28 ;;; Abbrevationtable due to: 28 ;;; Abbreviation table due to:
29 ;;; Johan Bergkvist, nv91-jbe@nada.kth.se 29 ;;; Johan Bergkvist, nv91-jbe@nada.kth.se
30 ;;; 30 ;;;
31 ;;; USAGE 31 ;;; USAGE
32 ;;; This file contains code for a GNU Emacs major mode for 32 ;;; This file contains code for a GNU Emacs major mode for
33 ;;; editing REXX program files. 33 ;;; editing REXX program files.
350 350
351 If you have set rexx-end-indent to a nonzero value, you probably want to 351 If you have set rexx-end-indent to a nonzero value, you probably want to
352 remap RETURN to rexx-indent-newline-indent. It makes sure that lines 352 remap RETURN to rexx-indent-newline-indent. It makes sure that lines
353 indents correctly when you press RETURN. 353 indents correctly when you press RETURN.
354 354
355 An extensive abbrevation table consisting of all the keywords of REXX are 355 An extensive abbreviation table consisting of all the keywords of REXX are
356 supplied. Expanded keywords are converted into upper case making it 356 supplied. Expanded keywords are converted into upper case making it
357 easier to distinguish them. To use this feature the buffer must be in 357 easier to distinguish them. To use this feature the buffer must be in
358 abbrev-mode. (See example below.) 358 abbrev-mode. (See example below.)
359 359
360 Turning on REXX mode calls the value of the variable rexx-mode-hook with 360 Turning on REXX mode calls the value of the variable rexx-mode-hook with
368 (local-set-key \"\\C-m\" 'rexx-indent-newline-indent) 368 (local-set-key \"\\C-m\" 'rexx-indent-newline-indent)
369 (abbrev-mode 1) 369 (abbrev-mode 1)
370 )) 370 ))
371 371
372 will make the END aligned with the DO/SELECT. It will indent blocks and 372 will make the END aligned with the DO/SELECT. It will indent blocks and
373 IF-statenents four steps and make sure that the END jumps into the 373 IF-statements four steps and make sure that the END jumps into the
374 correct position when RETURN is pressed. Finaly it will use the abbrev 374 correct position when RETURN is pressed. Finally it will use the abbrev
375 table to convert all REXX keywords into upper case." 375 table to convert all REXX keywords into upper case."
376 (interactive) 376 (interactive)
377 (kill-all-local-variables) 377 (kill-all-local-variables)
378 (use-local-map rexx-mode-map) 378 (use-local-map rexx-mode-map)
379 (set-syntax-table rexx-mode-syntax-table) 379 (set-syntax-table rexx-mode-syntax-table)