Mercurial > emacs

comparison lisp/generic-x.el @ 86290:9ddedad1a7b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Dan Nicolaescu <dann@ics.uci.edu>
date Thu, 22 Nov 2007 01:17:41 +0000
parents 22dc0bc9daf8
children 99a67ed52eaa
comparison
equal deleted inserted replaced
86289:8a7ed478f7bc 86290:9ddedad1a7b2
440 (function 440 (function
441 (lambda () 441 (lambda ()
442 (setq imenu-generic-expression 442 (setq imenu-generic-expression
443 '((nil "^\\s-*\\(.*\\)\\s-*=" 1)))))) 443 '((nil "^\\s-*\\(.*\\)\\s-*=" 1))))))
444 "Generic mode for MS-Windows Registry files.")) 444 "Generic mode for MS-Windows Registry files."))
445
446 (declare-function w32-shell-name "w32-fns" ())
445 447
446 ;;; DOS/Windows BAT files 448 ;;; DOS/Windows BAT files
447 (when (memq 'bat-generic-mode generic-extras-enable-list) 449 (when (memq 'bat-generic-mode generic-extras-enable-list)
448 450
449 (define-generic-mode bat-generic-mode 451 (define-generic-mode bat-generic-mode
521 (defvar bat-generic-mode-syntax-table nil 523 (defvar bat-generic-mode-syntax-table nil
522 "Syntax table in use in `bat-generic-mode' buffers.") 524 "Syntax table in use in `bat-generic-mode' buffers.")
523 525
524 (defvar bat-generic-mode-keymap (make-sparse-keymap) 526 (defvar bat-generic-mode-keymap (make-sparse-keymap)
525 "Keymap for `bat-generic-mode'.") 527 "Keymap for `bat-generic-mode'.")
526
527 (declare-function w32-shell-name "w32-fns" ())
528 528
529 (defun bat-generic-mode-compile () 529 (defun bat-generic-mode-compile ()
530 "Run the current BAT file in a compilation buffer." 530 "Run the current BAT file in a compilation buffer."
531 (interactive) 531 (interactive)
532 (let ((compilation-buffer-name-function 532 (let ((compilation-buffer-name-function