Mercurial > hg > xemacs-beta

comparison lisp/modes/sh-script.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 6608ceec7cf8
children 489f57a838ef
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
312 (define-key map "\t" 'sh-indent-line) 312 (define-key map "\t" 'sh-indent-line)
313 (substitute-key-definition 'complete-tag 'comint-dynamic-complete 313 (substitute-key-definition 'complete-tag 'comint-dynamic-complete
314 map (current-global-map)) 314 map (current-global-map))
315 (substitute-key-definition 'newline-and-indent 'sh-newline-and-indent 315 (substitute-key-definition 'newline-and-indent 'sh-newline-and-indent
316 map (current-global-map)) 316 map (current-global-map))
317 (substitute-key-definition 'delete-backward-char 317 ;; GDF - Don't mess around with the DEL bindings
318 'backward-delete-char-untabify 318 ;; (substitute-key-definition 'delete-backward-char
319 map (current-global-map)) 319 ;; 'backward-delete-char-untabify
320 ;; map (current-global-map))
320 (define-key map "\C-c:" 'sh-set-shell) 321 (define-key map "\C-c:" 'sh-set-shell)
321 (substitute-key-definition 'beginning-of-defun 322 (substitute-key-definition 'beginning-of-defun
322 'sh-beginning-of-compound-command 323 'sh-beginning-of-compound-command
323 map (current-global-map)) 324 map (current-global-map))
324 (substitute-key-definition 'backward-sentence 'sh-beginning-of-command 325 (substitute-key-definition 'backward-sentence 'sh-beginning-of-command