diff options
| author | Paul Eggert | 2016-05-31 08:07:41 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-05-31 08:07:41 -0700 |
| commit | 25cc0f2aada3e321e5f1c6d1e492a93d16da45b2 (patch) | |
| tree | 05309a9d1d74813cf25073015ef7aaf36d7a36bf /test/lisp/emulation | |
| parent | 4efef3db2fb1c3a20b83a67948e614d9b0c258dd (diff) | |
| parent | 788c9b69e1801dd883dbe603281571ef3c78a724 (diff) | |
| download | emacs-25cc0f2aada3e321e5f1c6d1e492a93d16da45b2.tar.gz emacs-25cc0f2aada3e321e5f1c6d1e492a93d16da45b2.zip | |
Merge from origin/emacs-25
788c9b6 ; Spelling fix
25c4a30 * lisp/recentf.el (recentf-dialog-mode-map): Remove follow-li...
0992ec3 Correct cl-flet usage (Bug#22317)
50caae3 Release MH-E manual version 8.6
602bb40 Update MH-E's documentation about HTML renderers
89018f0 Fx the we->the typo
845ee57 Restore frames into the current display by default
ee28b4c * lisp/recentf.el (recentf-open-files-item): Quick fix for (b...
01c3cd1 etc/TODO: Remove out-of-place issue
5e18486 Clarify doc string of 'file-name-sans-extension'
bffda22 Fix the MSDOS build
f907f98 * lisp/progmodes/elisp-mode.el (elisp-function-argstring): Ca...
1a2ffd0 * src/dired.c (Ffile_name_all_completions): Doc fix. (Bug#23...
f7ffc4b Fix infloop in 'number-sequence'
4ab2673 ; Spelling and punctuation fixes in comments
71c152e * lisp/emacs-lisp/find-func.el (find-function-library):
Diffstat (limited to 'test/lisp/emulation')
| -rw-r--r-- | test/lisp/emulation/viper-tests.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/lisp/emulation/viper-tests.el b/test/lisp/emulation/viper-tests.el index 8b30f050935..e2c39b3c3de 100644 --- a/test/lisp/emulation/viper-tests.el +++ b/test/lisp/emulation/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 | ||