branch: elpa/sesman commit e0f555f963c9f02f8e4a50e06fc353eb4c15ee77 Author: Vitalie Spinu <spinu...@gmail.com> Commit: Vitalie Spinu <spinu...@gmail.com>
Rename sesman-get-system and defalias sesman--system --- sesman.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/sesman.el b/sesman.el index 34a49f50b3..22bd3fe890 100644 --- a/sesman.el +++ b/sesman.el @@ -192,13 +192,15 @@ Can be either a symbol, or a function returning a symbol.") (funcall sesman-system) sesman-system))) -(defun sesman--system () +(defun sesman-get-system () (if sesman-system (if (functionp sesman-system) (funcall sesman-system) sesman-system) (error "No `sesman-system' in buffer `%s'" (current-buffer)))) +(defalias 'sesman--system #'sesman-get-system) + (defun sesman--linked-sessions (system &optional sort cxt-types) (let* ((system (or system (sesman--system))) (cxt-types (or cxt-types (sesman-context-types system))))