alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use more compliant variable names for customize

Browse Source 
The "-p" suffix is apparently only for functions, not variables.
This commit is contained in:
Vasilij Schneidermann
2014-10-22 09:31:40 +02:00
parent 46875fb7c6
commit e0324c4cc3
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
eyebrowse.el
View File

@ -104,19 +104,19 @@ manager."
(const :tag "Always" always)) (const :tag "Always" always))
:group 'eyebrowse) :group 'eyebrowse)
(defcustom eyebrowse-restore-point-p t (defcustom eyebrowse-restore-point t
"Restore point, too? "Restore point, too?
If t, restore point." If t, restore point."
:type 'boolean :type 'boolean
:group 'eyebrowse) :group 'eyebrowse)
(defcustom eyebrowse-wrap-around-p nil (defcustom eyebrowse-wrap-around nil
"Wrap around when switching to the next/previous window config? "Wrap around when switching to the next/previous window config?
If t, wrap around." If t, wrap around."
:type 'boolean :type 'boolean
:group 'eyebrowse) :group 'eyebrowse)
(defcustom eyebrowse-switch-back-and-forth-p nil (defcustom eyebrowse-switch-back-and-forth nil
"Switch to the last window automatically? "Switch to the last window automatically?
If t, switching to the same window config as If t, switching to the same window config as
`eyebrowse-current-window-config', switches to `eyebrowse-current-window-config', switches to
@ -287,7 +287,7 @@ last window config."
(when slot (when slot
(let ((current-slot (eyebrowse-get 'current-slot)) (let ((current-slot (eyebrowse-get 'current-slot))
(last-slot (eyebrowse-get 'last-slot))) (last-slot (eyebrowse-get 'last-slot)))
(when (and eyebrowse-switch-back-and-forth-p (= current-slot slot)) (when (and eyebrowse-switch-back-and-forth (= current-slot slot))
(setq slot last-slot)) (setq slot last-slot))
(when (/= current-slot slot) (when (/= current-slot slot)
(run-hooks 'eyebrowse-pre-window-switch-hook) (run-hooks 'eyebrowse-pre-window-switch-hook)
@ -328,7 +328,7 @@ switch COUNT window configs backwards and always wrap around."
(match (assq (eyebrowse-get 'current-slot) window-configs)) (match (assq (eyebrowse-get 'current-slot) window-configs))
(index (-elem-index match window-configs))) (index (-elem-index match window-configs)))
(if count (if count
(let ((eyebrowse-wrap-around-p t)) (let ((eyebrowse-wrap-around t))
(eyebrowse-prev-window-config (eyebrowse-prev-window-config
(when (> count 1) (when (> count 1)
(eyebrowse-prev-window-config (1- count))))) (eyebrowse-prev-window-config (1- count)))))