pdm/pip-frame
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add some useless stuff to make checkdoc happier

Browse Source
This commit is contained in:
Milan Zamazal 2022-07-04 18:59:25 +02:00
parent 7514139d18
commit 23721d0a55
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pip-frame.el
View File

@ -35,6 +35,8 @@
(require 'cl-lib) (require 'cl-lib)
;;; Code:
(defgroup pip-frame () (defgroup pip-frame ()
"Display PIP frame." "Display PIP frame."
:group 'frames) :group 'frames)
@ -194,18 +196,22 @@ If the buffer is not present in the PIP frame, do nothing."
(round (* pip-frame-move-step (nth (if vertical 3 2) workarea)))))) (round (* pip-frame-move-step (nth (if vertical 3 2) workarea))))))
(defun pip-frame-move-left () (defun pip-frame-move-left ()
"Move the PIP frame left."
(interactive) (interactive)
(pip-frame--move (- (pip-frame--move-step nil)) 0)) (pip-frame--move (- (pip-frame--move-step nil)) 0))
(defun pip-frame-move-right () (defun pip-frame-move-right ()
"Move the PIP frame right."
(interactive) (interactive)
(pip-frame--move (pip-frame--move-step nil) 0)) (pip-frame--move (pip-frame--move-step nil) 0))
(defun pip-frame-move-up () (defun pip-frame-move-up ()
"Move the PIP frame up."
(interactive) (interactive)
(pip-frame--move 0 (- (pip-frame--move-step t)))) (pip-frame--move 0 (- (pip-frame--move-step t))))
(defun pip-frame-move-down () (defun pip-frame-move-down ()
"Move the PIP frame down."
(interactive) (interactive)
(pip-frame--move 0 (pip-frame--move-step t))) (pip-frame--move 0 (pip-frame--move-step t)))