aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp/emulation
diff options
context:
space:
mode:
authorPaul Eggert2016-05-31 08:07:41 -0700
committerPaul Eggert2016-05-31 08:07:41 -0700
commit25cc0f2aada3e321e5f1c6d1e492a93d16da45b2 (patch)
tree05309a9d1d74813cf25073015ef7aaf36d7a36bf /test/lisp/emulation
parent4efef3db2fb1c3a20b83a67948e614d9b0c258dd (diff)
parent788c9b69e1801dd883dbe603281571ef3c78a724 (diff)
downloademacs-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.el10
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