procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Spelling and punctuation fixes in comments

Browse source
This commit is contained in:
Paul Eggert 2016-05-26 19:21:56 -07:00
parent 71c152e2af
commit 4ab2673d87
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/automated/viper-tests.el
View file

@ -33,7 +33,7 @@ after itself, although it will leave a buffer called
(let ( (let (
;; Viper just turns itself off during batch use. ;; Viper just turns itself off during batch use.
(noninteractive nil) (noninteractive nil)
;; Switch off start up message or it will chew the key presses ;; Switch off start up message or it will chew the key presses.
(viper-inhibit-startup-message 't) (viper-inhibit-startup-message 't)
;; Select an expert-level for the same reason. ;; Select an expert-level for the same reason.
(viper-expert-level 5) (viper-expert-level 5)
@ -42,7 +42,7 @@ after itself, although it will leave a buffer called
(before-buffer (current-buffer))) (before-buffer (current-buffer)))
(unwind-protect (unwind-protect
(progn (progn
;; viper-mode is essentially global, so set it here ;; viper-mode is essentially global, so set it here.
(viper-mode) (viper-mode)
;; We must switch to buffer because we are using a keyboard macro ;; We must switch to buffer because we are using a keyboard macro
;; which appears to not go to the current-buffer but what ever is ;; 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
(erase-buffer) (erase-buffer)
;; The new buffer fails to enter vi state so set it. ;; The new buffer fails to enter vi state so set it.
(viper-change-state-to-vi) (viper-change-state-to-vi)
;; Run the macro ;; Run the macro.
(execute-kbd-macro kmacro) (execute-kbd-macro kmacro)
(let ((rtn (let ((rtn
(buffer-substring-no-properties (buffer-substring-no-properties
(point-min) (point-min)
(point-max)))) (point-max))))
;; Kill the buffer iff the macro succeeds ;; Kill the buffer iff the macro succeeds.
(kill-buffer) (kill-buffer)
rtn)) rtn))
;; switch everthing off and restore the buffer ;; Switch everything off and restore the buffer.
(toggle-viper-mode) (toggle-viper-mode)
(switch-to-buffer before-buffer)))) (switch-to-buffer before-buffer))))