sqrtminusone/pomm.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/pomm.el.git synced 2025-12-10 14:43:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor: checkdoc

Browse source
This commit is contained in:
Pavel Korytov 2022-08-13 21:05:44 +05:00
parent 23ebf485d8
commit 7ac74966d2
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
pomm.el
View file

@ -634,14 +634,18 @@ minor mode."
(variable :initarg :variable))) (variable :initarg :variable)))
(cl-defmethod transient-init-value ((obj pomm--transient-lisp-variable-switch)) (cl-defmethod transient-init-value ((obj pomm--transient-lisp-variable-switch))
"Initialize the value for the `pomm--transient-lisp-variable-switch'." "Initialize the value for the `pomm--transient-lisp-variable-switch'.
OBJ is an instance of the class."
(oset obj value (oset obj value
(symbol-value (oref obj variable)))) (symbol-value (oref obj variable))))
(cl-defmethod transient-infix-read ((obj pomm--transient-lisp-variable-switch)) (cl-defmethod transient-infix-read ((obj pomm--transient-lisp-variable-switch))
"Toggle the value of the `pomm--transient-lisp-variable-switch'. "Toggle the value of the `pomm--transient-lisp-variable-switch'.
This changes both the value of the variable and the value of the class." This changes both the value of the variable and the value of the class.
OBJ is an instance of the class."
(oset obj value (oset obj value
(set (oref obj variable) (set (oref obj variable)
(not (symbol-value (oref obj variable)))))) (not (symbol-value (oref obj variable))))))