scratch/sqlite 0c28695 2/3: Rename sticky to multisession

[Lars Ingebrigtsen]

branch: scratch/sqlite
commit 0c286951d0724e6ba5b6b41233048d1b2c318b40
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Rename sticky to multisession
---
 lisp/international/emoji.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index eead00f..a4dec97 100644
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -30,7 +30,7 @@
 (require 'cl-lib)
 (require 'cl-extra)
 (require 'transient)
-(require 'sticky)
+(require 'multisession)
 
 (defgroup emoji nil
   "Inserting Emojis."
@@ -60,7 +60,7 @@
 (defvar emoji--derived nil)
 (defvar emoji--names (make-hash-table :test #'equal))
 (defvar emoji--done-derived nil)
-(define-sticky-variable emoji--recent (list "😀" "😖"))
+(define-multisession-variable emoji--recent (list "😀" "😖"))
 (defvar emoji--insert-buffer)
 
 ;;;###autoload
@@ -84,7 +84,7 @@ of a visual interface."
   (unless (fboundp 'emoji--command-Emoji)
     (emoji--define-transient))
   (funcall (emoji--define-transient
-            (cons "Recent" (sticky-value emoji--recent)) t)))
+            (cons "Recent" (multisession-value emoji--recent)) t)))
 
 ;;;###autoload
 (defun emoji-search ()
@@ -530,17 +530,18 @@ character) under point is."
   (lambda ()
     (interactive)
     (funcall (emoji--define-transient
-              (cons "Recent" (sticky-value emoji--recent)) t end-function))))
+              (cons "Recent" (multisession-value emoji--recent))
+              t end-function))))
 
 (defun emoji--add-recent (glyph)
   "Add GLYPH to the set of recently used emojis."
-  (let ((recent (sticky-value emoji--recent)))
+  (let ((recent (multisession-value emoji--recent)))
     (setq recent (delete glyph recent))
     (push glyph recent)
     ;; Shorten the list.
     (when-let ((tail (nthcdr 30 recent)))
       (setcdr tail nil))
-    (setf (sticky-value emoji--recent) recent)))
+    (setf (multisession-value emoji--recent) recent)))
 
 (defun emoji--columnize (list columns)
   "Split LIST into COLUMN columns."