* 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.
This commit is contained in:
parent
b4dc7d9888
commit
040759526f
3 changed files with 12 additions and 5 deletions
|
@ -1,3 +1,10 @@
|
|||
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>
|
||||
|
||||
* files-x.el (modify-dir-local-variable)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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))))
|
||||
|
|
Loading…
Add table
Reference in a new issue