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))))

Reply via email to