[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el
From: |
Masatake YAMATO |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el |
Date: |
Wed, 13 Oct 2004 12:46:08 -0400 |
Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.25 emacs/lisp/progmodes/gud.el:1.26
*** emacs/lisp/progmodes/gud.el:1.25 Sun May 23 20:29:44 2004
--- emacs/lisp/progmodes/gud.el Wed Oct 13 16:32:41 2004
***************
*** 3027,3032 ****
--- 3027,3053 ----
(save-excursion (indent-line-to indent))
(indent-line-to indent)))))
+ ;; Derived from cfengine.el.
+ (defun gdb-script-beginning-of-defun ()
+ "`beginning-of-defun' function for Gdb script mode.
+ Treats actions as defuns."
+ (unless (<= (current-column) (current-indentation))
+ (end-of-line))
+ (if (re-search-backward "^define \\|^document " nil t)
+ (beginning-of-line)
+ (goto-char (point-min)))
+ t)
+
+ ;; Derived from cfengine.el.
+ (defun gdb-script-end-of-defun ()
+ "`end-of-defun' function for Gdb script mode.
+ Treats actions as defuns."
+ (end-of-line)
+ (if (re-search-forward "^end" nil t)
+ (beginning-of-line)
+ (goto-char (point-max)))
+ t)
+
;;;###autoload
(add-to-list 'auto-mode-alist '("/\\.gdbinit" . gdb-script-mode))
***************
*** 3039,3044 ****
--- 3060,3069 ----
(set (make-local-variable 'imenu-generic-expression)
'((nil "^define[ \t]+\\(\\w+\\)" 1)))
(set (make-local-variable 'indent-line-function) 'gdb-script-indent-line)
+ (set (make-local-variable 'beginning-of-defun-function)
+ #'gdb-script-beginning-of-defun)
+ (set (make-local-variable 'end-of-defun-function)
+ #'gdb-script-end-of-defun)
(set (make-local-variable 'font-lock-defaults)
'(gdb-script-font-lock-keywords nil nil ((?_ . "w")) nil
(font-lock-syntactic-keywords
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el,
Masatake YAMATO <=