diff options
| author | Paul Eggert | 2016-05-26 19:21:56 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-05-26 19:22:18 -0700 |
| commit | 4ab2673d87794dbbe4db33856c0dc69e4b06db71 (patch) | |
| tree | 7761db6d007ba9cd30107afda16c8bbb6f84119a | |
| parent | 71c152e2af45e79bcc7e58a47571f83d6811256c (diff) | |
| download | emacs-4ab2673d87794dbbe4db33856c0dc69e4b06db71.tar.gz emacs-4ab2673d87794dbbe4db33856c0dc69e4b06db71.zip | |
; Spelling and punctuation fixes in comments
| -rw-r--r-- | test/automated/viper-tests.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/automated/viper-tests.el b/test/automated/viper-tests.el index 8b30f050935..e2c39b3c3de 100644 --- a/test/automated/viper-tests.el +++ b/test/automated/viper-tests.el | |||
| @@ -33,7 +33,7 @@ after itself, although it will leave a buffer called | |||
| 33 | (let ( | 33 | (let ( |
| 34 | ;; Viper just turns itself off during batch use. | 34 | ;; Viper just turns itself off during batch use. |
| 35 | (noninteractive nil) | 35 | (noninteractive nil) |
| 36 | ;; Switch off start up message or it will chew the key presses | 36 | ;; Switch off start up message or it will chew the key presses. |
| 37 | (viper-inhibit-startup-message 't) | 37 | (viper-inhibit-startup-message 't) |
| 38 | ;; Select an expert-level for the same reason. | 38 | ;; Select an expert-level for the same reason. |
| 39 | (viper-expert-level 5) | 39 | (viper-expert-level 5) |
| @@ -42,7 +42,7 @@ after itself, although it will leave a buffer called | |||
| 42 | (before-buffer (current-buffer))) | 42 | (before-buffer (current-buffer))) |
| 43 | (unwind-protect | 43 | (unwind-protect |
| 44 | (progn | 44 | (progn |
| 45 | ;; viper-mode is essentially global, so set it here | 45 | ;; viper-mode is essentially global, so set it here. |
| 46 | (viper-mode) | 46 | (viper-mode) |
| 47 | ;; We must switch to buffer because we are using a keyboard macro | 47 | ;; We must switch to buffer because we are using a keyboard macro |
| 48 | ;; which appears to not go to the current-buffer but what ever is | 48 | ;; which appears to not go to the current-buffer but what ever is |
| @@ -54,16 +54,16 @@ after itself, although it will leave a buffer called | |||
| 54 | (erase-buffer) | 54 | (erase-buffer) |
| 55 | ;; The new buffer fails to enter vi state so set it. | 55 | ;; The new buffer fails to enter vi state so set it. |
| 56 | (viper-change-state-to-vi) | 56 | (viper-change-state-to-vi) |
| 57 | ;; Run the macro | 57 | ;; Run the macro. |
| 58 | (execute-kbd-macro kmacro) | 58 | (execute-kbd-macro kmacro) |
| 59 | (let ((rtn | 59 | (let ((rtn |
| 60 | (buffer-substring-no-properties | 60 | (buffer-substring-no-properties |
| 61 | (point-min) | 61 | (point-min) |
| 62 | (point-max)))) | 62 | (point-max)))) |
| 63 | ;; Kill the buffer iff the macro succeeds | 63 | ;; Kill the buffer iff the macro succeeds. |
| 64 | (kill-buffer) | 64 | (kill-buffer) |
| 65 | rtn)) | 65 | rtn)) |
| 66 | ;; switch everthing off and restore the buffer | 66 | ;; Switch everything off and restore the buffer. |
| 67 | (toggle-viper-mode) | 67 | (toggle-viper-mode) |
| 68 | (switch-to-buffer before-buffer)))) | 68 | (switch-to-buffer before-buffer)))) |
| 69 | 69 | ||