[Emacs-diffs] Changes to emacs/lisp/progmodes/cfengine.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/progmodes/cfengine.el
diff -c emacs/lisp/progmodes/cfengine.el:1.3.2.1 
emacs/lisp/progmodes/cfengine.el:1.3.2.2
*** emacs/lisp/progmodes/cfengine.el:1.3.2.1    Fri Apr 16 12:50:34 2004
--- emacs/lisp/progmodes/cfengine.el    Mon Jun 28 07:29:42 2004
***************
*** 1,6 ****
  ;;; cfengine.el --- mode for editing Cfengine files
  
! ;; Copyright (C) 2003 Free Software Foundation, Inc.
  
  ;; Author: Dave Love <address@hidden>
  ;; Keywords: languages
--- 1,6 ----
  ;;; cfengine.el --- mode for editing Cfengine files
  
! ;; Copyright (C) 2003, 2004  Free Software Foundation, Inc.
  
  ;; Author: Dave Love <address@hidden>
  ;; Keywords: languages
***************
*** 102,108 ****
  (defun cfengine-beginning-of-defun ()
    "`beginning-of-defun' function for Cfengine mode.
  Treats actions as defuns."
!   (end-of-line)
    (if (re-search-backward "^[[:alpha:]]+: *$" nil t)
        (beginning-of-line)
      (goto-char (point-min)))
--- 102,109 ----
  (defun cfengine-beginning-of-defun ()
    "`beginning-of-defun' function for Cfengine mode.
  Treats actions as defuns."
!   (unless (<= (current-column) (current-indentation))
!     (end-of-line))
    (if (re-search-backward "^[[:alpha:]]+: *$" nil t)
        (beginning-of-line)
      (goto-char (point-min)))
***************
*** 113,119 ****
  Treats actions as defuns."
    (end-of-line)
    (if (re-search-forward "^[[:alpha:]]+: *$" nil t)
!       (progn (forward-line -1) (end-of-line))
      (goto-char (point-max)))
    t)
  
--- 114,120 ----
  Treats actions as defuns."
    (end-of-line)
    (if (re-search-forward "^[[:alpha:]]+: *$" nil t)
!       (beginning-of-line)
      (goto-char (point-max)))
    t)