mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

* progmodes/gud.el (gdb-script-beginning-of-defun): New function.

Browse Source 
(gdb-script-end-of-defun): New function.
  (gdb-script-mode): Use `gdb-script-beginning-of-defun' and
  `gdb-script-end-of-defun' as *-of-defun-function.
This commit is contained in:
Masatake YAMATO 2004-10-13 16:32:42 +00:00
parent f38e574844
commit e375517fda
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2004-10-14 Masatake YAMATO <jet@gyve.org>
* progmodes/gud.el (gdb-script-beginning-of-defun): New function.
(gdb-script-end-of-defun): New function.
(gdb-script-mode): Use `gdb-script-beginning-of-defun' and
`gdb-script-end-of-defun' as *-of-defun-function.
2004-10-12 Michael Albinus <michael.albinus@gmx.de>
Sync with Tramp 2.0.45.

25
lisp/progmodes/gud.el
View File

@ -3027,6 +3027,27 @@ class of the file (using s to separate nested class ids)."
(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,6 +3060,10 @@ class of the file (using s to separate nested class ids)."
(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