TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed window-rotate-backward

This commit is contained in:
syl20bnr 2013-02-20 14:06:31 -05:00
parent 1a80ad5272
commit 226ca0a417
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
my-funcs.el
View File

@ -22,7 +22,7 @@
(defun rotate-windows (count)
"Rotate your windows.
Dedicated windows are left untouched. Giving a negative prefix
argument makes the windows rotate backwards."
argument takes the kindows rotate backwards."
(interactive "p")
(let* ((non-dedicated-windows (remove-if 'window-dedicated-p (window-list)))
(num-windows (length non-dedicated-windows))
@ -48,9 +48,10 @@ argument makes the windows rotate backwards."
(set-window-start w2 s1)
(setq i next-i)))))))
(defun rotate-windows-backward ()
(defun rotate-windows-backward (count)
"Rotate your windows backward."
(rotate-windows -1))
(interactive "p")
(rotate-windows (* -1 count)))
;; from magnars
(defun rename-current-buffer-file ()