toki/emacs-winum
1
0
Fork 0
Code Issues Pull requests Activity

add ;;;###autoload to every public function

Browse source
This commit is contained in:
deb0ch 2016-12-08 19:23:05 +01:00
parent ea0f538005
commit 9b4a9f1560
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
window-numbering.el
View file

@ -107,6 +107,7 @@ Has effect only when `window-numbering-frame-scope' is not 'frame-local."
(defvar window-numbering--frames-table nil (defvar window-numbering--frames-table nil
"table -> (window vector . number table)") "table -> (window vector . number table)")
;;;###autoload
(defun get-window-by-number (i) (defun get-window-by-number (i)
"Return window numbered I if exists." "Return window numbered I if exists."
(let ((windows (if (eq window-numbering-frame-scope 'frame-local) (let ((windows (if (eq window-numbering-frame-scope 'frame-local)
@ -119,6 +120,7 @@ Has effect only when `window-numbering-frame-scope' is not 'frame-local."
window window
(error "No window numbered %s" i)))) (error "No window numbered %s" i))))
;;;###autoload
(defun select-window-by-number (i &optional arg) (defun select-window-by-number (i &optional arg)
"Select window given number I by `window-numbering-mode'. "Select window given number I by `window-numbering-mode'.
If prefix ARG is given, delete the window instead of selecting it." If prefix ARG is given, delete the window instead of selecting it."
@ -236,10 +238,12 @@ If prefix ARG is given, delete the window instead of selecting it."
(select-window window) (select-window window)
(error "Got a dead window %S" window)))) (error "Got a dead window %S" window))))
;;;###autoload
(defun window-numbering-get-number-string (&optional window) (defun window-numbering-get-number-string (&optional window)
(let ((s (int-to-string (window-numbering-get-number window)))) (let ((s (int-to-string (window-numbering-get-number window))))
(propertize s 'face 'window-numbering-face))) (propertize s 'face 'window-numbering-face)))
;;;###autoload
(defun window-numbering-get-number (&optional window) (defun window-numbering-get-number (&optional window)
(let ((w (or window (selected-window)))) (let ((w (or window (selected-window))))
(if (eq window-numbering-frame-scope 'frame-local) (if (eq window-numbering-frame-scope 'frame-local)
@ -283,6 +287,7 @@ If prefix ARG is given, delete the window instead of selecting it."
'window-numbering-update) 'window-numbering-update)
(setq window-numbering--frames-table nil))) (setq window-numbering--frames-table nil)))
;;;###autoload
(defun window-numbering-install-mode-line (&optional position) (defun window-numbering-install-mode-line (&optional position)
"Install the window number from `window-numbering-mode' to the mode-line." "Install the window number from `window-numbering-mode' to the mode-line."
(let ((mode-line (default-value 'mode-line-format)) (let ((mode-line (default-value 'mode-line-format))
@ -298,6 +303,7 @@ If prefix ARG is given, delete the window instead of selecting it."
(setq-default mode-line-format (nreverse res))) (setq-default mode-line-format (nreverse res)))
(force-mode-line-update t)) (force-mode-line-update t))
;;;###autoload
(defun window-numbering-clear-mode-line () (defun window-numbering-clear-mode-line ()
"Remove the window number of `window-numbering-mode' from the mode-line." "Remove the window number of `window-numbering-mode' from the mode-line."
(let ((mode-line (default-value 'mode-line-format)) (let ((mode-line (default-value 'mode-line-format))