diff options
Diffstat (limited to 'lisp/progmodes/cfengine.el')
| -rw-r--r-- | lisp/progmodes/cfengine.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/cfengine.el b/lisp/progmodes/cfengine.el index 62633fe2940..16064586ee9 100644 --- a/lisp/progmodes/cfengine.el +++ b/lisp/progmodes/cfengine.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cfengine.el --- mode for editing Cfengine files | 1 | ;;; cfengine.el --- mode for editing Cfengine files |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003, 2004 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Dave Love <fx@gnu.org> | 5 | ;; Author: Dave Love <fx@gnu.org> |
| 6 | ;; Keywords: languages | 6 | ;; Keywords: languages |
| @@ -102,7 +102,8 @@ This includes those for cfservd as well as cfagent.")) | |||
| 102 | (defun cfengine-beginning-of-defun () | 102 | (defun cfengine-beginning-of-defun () |
| 103 | "`beginning-of-defun' function for Cfengine mode. | 103 | "`beginning-of-defun' function for Cfengine mode. |
| 104 | Treats actions as defuns." | 104 | Treats actions as defuns." |
| 105 | (end-of-line) | 105 | (unless (<= (current-column) (current-indentation)) |
| 106 | (end-of-line)) | ||
| 106 | (if (re-search-backward "^[[:alpha:]]+: *$" nil t) | 107 | (if (re-search-backward "^[[:alpha:]]+: *$" nil t) |
| 107 | (beginning-of-line) | 108 | (beginning-of-line) |
| 108 | (goto-char (point-min))) | 109 | (goto-char (point-min))) |
| @@ -113,7 +114,7 @@ Treats actions as defuns." | |||
| 113 | Treats actions as defuns." | 114 | Treats actions as defuns." |
| 114 | (end-of-line) | 115 | (end-of-line) |
| 115 | (if (re-search-forward "^[[:alpha:]]+: *$" nil t) | 116 | (if (re-search-forward "^[[:alpha:]]+: *$" nil t) |
| 116 | (progn (forward-line -1) (end-of-line)) | 117 | (beginning-of-line) |
| 117 | (goto-char (point-max))) | 118 | (goto-char (point-max))) |
| 118 | t) | 119 | t) |
| 119 | 120 | ||