Mercurial > hg > xemacs-beta

comparison lisp/modes/ksh-mode.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
22 ;; $Source: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs-19/lisp/modes/ksh-mode.el,v $ -- 22 ;; $Source: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs-19/lisp/modes/ksh-mode.el,v $ --
23 ;; 23 ;;
24 ;; LCD Archive Entry: 24 ;; LCD Archive Entry:
25 ;; ksh-mode|Gary F. Ellison|Gary.F.Ellison@ATT.COM 25 ;; ksh-mode|Gary F. Ellison|Gary.F.Ellison@ATT.COM
26 ;; |Mode for editing sh/ksh/bash scripts 26 ;; |Mode for editing sh/ksh/bash scripts
27 ;; |$Date: 1997/02/02 05:05:40 $|$Revision: 1.2 $|~/modes/ksh-mode.el.Z| 27 ;; |$Date: 1997/03/09 02:37:20 $|$Revision: 1.3 $|~/modes/ksh-mode.el.Z|
28 28
29 ;; Author: Gary F. Ellison <Gary.F.Ellison@ATT.COM> 29 ;; Author: Gary F. Ellison <Gary.F.Ellison@ATT.COM>
30 ;; AT&T Laboratories 30 ;; AT&T Laboratories
31 ;; 6200 East Broad Street 31 ;; 6200 East Broad Street
32 ;; Columbus, Ohio 43213 USA 32 ;; Columbus, Ohio 43213 USA
33 ;; 33 ;;
34 ;; Maintainer: Gary F. Ellison <Gary.F.Ellison@ATT.COM> 34 ;; Maintainer: Gary F. Ellison <Gary.F.Ellison@ATT.COM>
35 ;; Created: Fri Jun 19 35 ;; Created: Fri Jun 19
36 ;; $Revision: 1.2 $ 36 ;; $Revision: 1.3 $
37 ;; Keywords: shell, korn, bourne, sh, ksh, bash 37 ;; Keywords: shell, korn, bourne, sh, ksh, bash
38 ;; 38 ;;
39 ;; Delta On $Date: 1997/02/02 05:05:40 $ 39 ;; Delta On $Date: 1997/03/09 02:37:20 $
40 ;; Last Modified By: Gary Ellison 40 ;; Last Modified By: Gary Ellison
41 ;; Last Modified On: Mon Sep 11 12:26:47 1995 41 ;; Last Modified On: Mon Sep 11 12:26:47 1995
42 ;; Update Count : 35 42 ;; Update Count : 35
43 ;; Status : Highly Functional 43 ;; Status : Highly Functional
44 ;; 44 ;;
229 ;; 19-Jun-1992 Gary Ellison 229 ;; 19-Jun-1992 Gary Ellison
230 ;; Last Modified: Fri Jun 19 10:03:07 1992 #1 (Gary Ellison) 230 ;; Last Modified: Fri Jun 19 10:03:07 1992 #1 (Gary Ellison)
231 ;; Conception of this mode. 231 ;; Conception of this mode.
232 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 232 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
233 233
234 (defconst ksh-mode-version "$Revision: 1.2 $" 234 (defconst ksh-mode-version "$Revision: 1.3 $"
235 "*Version numbers of this version of ksh-mode") 235 "*Version numbers of this version of ksh-mode")
236 236
237 ;; 237 ;;
238 ;; Variables controlling indentation style 238 ;; Variables controlling indentation style
239 ;; 239 ;;
466 ) 466 )
467 467
468 468
469 ;;;###autoload 469 ;;;###autoload
470 (defun ksh-mode () 470 (defun ksh-mode ()
471 "ksh-mode $Revision: 1.2 $ - Major mode for editing (Bourne, Korn or Bourne again) 471 "ksh-mode $Revision: 1.3 $ - Major mode for editing (Bourne, Korn or Bourne again)
472 shell scripts. 472 shell scripts.
473 Special key bindings and commands: 473 Special key bindings and commands:
474 \\{ksh-mode-map} 474 \\{ksh-mode-map}
475 Variables controlling indentation style: 475 Variables controlling indentation style:
476 ksh-indent 476 ksh-indent
1291 ((not (string= pattern completion)) 1291 ((not (string= pattern completion))
1292 (delete-region beg end) 1292 (delete-region beg end)
1293 (insert completion)) 1293 (insert completion))
1294 ;; 1294 ;;
1295 ;; write possible completion in the minibuffer, 1295 ;; write possible completion in the minibuffer,
1296 ;; use this instead of a seperate buffer (usual) 1296 ;; use this instead of a separate buffer (usual)
1297 ;; 1297 ;;
1298 (t 1298 (t
1299 (let ((list (all-completions pattern ksh-completion-list predicate)) 1299 (let ((list (all-completions pattern ksh-completion-list predicate))
1300 (string "")) 1300 (string ""))
1301 (while list 1301 (while list