From 040759526fbb4f10bba6e3f8c243a35bdb043032 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 4 Oct 2009 02:25:42 +0000 Subject: [PATCH] * cedet/ede/makefile-edit.el (makefile-beginning-of-command) (makefile-end-of-command): * cedet/srecode/srt-mode.el (semantic-beginning-of-context) (semantic-end-of-context): Fix previous change. Doc fixes. --- lisp/ChangeLog | 7 +++++++ lisp/cedet/ede/makefile-edit.el | 4 ++-- lisp/cedet/srecode/srt-mode.el | 6 +++--- 3 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e9a8abb1f9f..97962595a99 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,12 @@ 2009-10-04 Juanma Barranquero + * cedet/ede/makefile-edit.el (makefile-beginning-of-command) + (makefile-end-of-command): + * cedet/srecode/srt-mode.el (semantic-beginning-of-context) + (semantic-end-of-context): Fix previous change. Doc fixes. + +2009-10-04 Juanma Barranquero + * files-x.el (modify-dir-local-variable) (copy-dir-locals-to-file-locals-prop-line): * cedet/ede/makefile-edit.el (makefile-beginning-of-command) diff --git a/lisp/cedet/ede/makefile-edit.el b/lisp/cedet/ede/makefile-edit.el index 542ea703946..8541010ad29 100644 --- a/lisp/cedet/ede/makefile-edit.el +++ b/lisp/cedet/ede/makefile-edit.el @@ -42,7 +42,7 @@ ;;; Code: (defun makefile-beginning-of-command () - "Move the beginning of the current command." + "Move to the beginning of the current command." (interactive) (if (save-excursion (forward-line -1) @@ -57,7 +57,7 @@ (forward-line 1))) (defun makefile-end-of-command () - "Move the beginning of the current command." + "Move to the end of the current command." (interactive) (end-of-line) (while (and (makefile-line-continued-p) diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el index 49d77a35ddd..d7e4b7b3ff4 100644 --- a/lisp/cedet/srecode/srt-mode.el +++ b/lisp/cedet/srecode/srt-mode.el @@ -375,7 +375,7 @@ Moves out one named section." (define-mode-local-override semantic-beginning-of-context srecode-template-mode (&optional point) "Move to the beginning of the current context. -Moves the beginning of one named section." +Moves to the beginning of one named section." (if (semantic-up-context point) t (let ((es (regexp-quote (srecode-template-get-escape-start))) @@ -386,8 +386,8 @@ Moves the beginning of one named section." (define-mode-local-override semantic-end-of-context srecode-template-mode (&optional point) - "Move to the beginning of the current context. -Moves the beginning of one named section." + "Move to the end of the current context. +Moves to the end of one named section." (let ((name (srecode-up-context-get-name point)) (tag (semantic-current-tag)) (es (regexp-quote (srecode-template-get-escape-start)))) -- 2.11.4.GIT