Commit 04075952 authored by Juanma Barranquero's avatar 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.
parent b4dc7d98
2009-10-04 Juanma Barranquero <lekktu@gmail.com>
* 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 <lekktu@gmail.com> 2009-10-04 Juanma Barranquero <lekktu@gmail.com>
* files-x.el (modify-dir-local-variable) * files-x.el (modify-dir-local-variable)
......
...@@ -42,7 +42,7 @@ ...@@ -42,7 +42,7 @@
;;; Code: ;;; Code:
(defun makefile-beginning-of-command () (defun makefile-beginning-of-command ()
"Move the beginning of the current command." "Move to the beginning of the current command."
(interactive) (interactive)
(if (save-excursion (if (save-excursion
(forward-line -1) (forward-line -1)
...@@ -57,7 +57,7 @@ ...@@ -57,7 +57,7 @@
(forward-line 1))) (forward-line 1)))
(defun makefile-end-of-command () (defun makefile-end-of-command ()
"Move the beginning of the current command." "Move to the end of the current command."
(interactive) (interactive)
(end-of-line) (end-of-line)
(while (and (makefile-line-continued-p) (while (and (makefile-line-continued-p)
......
...@@ -375,7 +375,7 @@ Moves out one named section." ...@@ -375,7 +375,7 @@ Moves out one named section."
(define-mode-local-override semantic-beginning-of-context (define-mode-local-override semantic-beginning-of-context
srecode-template-mode (&optional point) srecode-template-mode (&optional point)
"Move to the beginning of the current context. "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) (if (semantic-up-context point)
t t
(let ((es (regexp-quote (srecode-template-get-escape-start))) (let ((es (regexp-quote (srecode-template-get-escape-start)))
...@@ -386,8 +386,8 @@ Moves the beginning of one named section." ...@@ -386,8 +386,8 @@ Moves the beginning of one named section."
(define-mode-local-override semantic-end-of-context (define-mode-local-override semantic-end-of-context
srecode-template-mode (&optional point) srecode-template-mode (&optional point)
"Move to the beginning of the current context. "Move to the end of the current context.
Moves the beginning of one named section." Moves to the end of one named section."
(let ((name (srecode-up-context-get-name point)) (let ((name (srecode-up-context-get-name point))
(tag (semantic-current-tag)) (tag (semantic-current-tag))
(es (regexp-quote (srecode-template-get-escape-start)))) (es (regexp-quote (srecode-template-get-escape-start))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment