branch: externals/phps-mode commit 38bd348ca5e1640f1f76e1b1af079e0f7f1b3b84 Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
More work on advice --- phps-mode-functions.el | 2 +- phps-mode-test-functions.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/phps-mode-functions.el b/phps-mode-functions.el index e91e69a..0ca4031 100644 --- a/phps-mode-functions.el +++ b/phps-mode-functions.el @@ -983,7 +983,7 @@ (set (make-local-variable 'indent-tabs-mode) nil)) ;; Add support for moving indexes quickly when making newlines - (advice-add #'newline :around #'phps-mode-functions-around-newline) + (advice-add 'newline :around #'phps-mode-functions-around-newline) ;; Reset flags (set (make-local-variable 'phps-mode-functions-buffer-changes-start) nil) diff --git a/phps-mode-test-functions.el b/phps-mode-test-functions.el index 517614b..4052d76 100644 --- a/phps-mode-test-functions.el +++ b/phps-mode-test-functions.el @@ -863,7 +863,7 @@ (should (equal (phps-mode-lexer-get-tokens) '((T_OPEN_TAG 1 . 7) (T_VARIABLE 7 . 11) ("=" 12 . 13) (T_CONSTANT_ENCAPSED_STRING 14 . 19) (";" 19 . 20) (T_VARIABLE 22 . 27) ("=" 28 . 29) (T_CONSTANT_ENCAPSED_STRING 30 . 35) (";" 35. 36)))) (goto-char 21) - (newline) + (newline-and-indent) (should (equal (phps-mode-lexer-get-tokens) '((T_OPEN_TAG 1 . 7) (T_VARIABLE 7 . 11) ("=" 12 . 13) (T_CONSTANT_ENCAPSED_STRING 14 . 19) (";" 19 . 20) (T_VARIABLE 23 . 28) ("=" 29 . 30) (T_CONSTANT_ENCAPSED_STRING 31 . 36) (";" 36. 37))))))