[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Lars Ingebrigtsen
Subject: scratch/sqlite 0c28695 2/3: Rename sticky to multisession
Date: Fri, 10 Dec 2021 22:47:47 -0500 (EST)

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)
@@ -84,7 +84,7 @@ of a visual interface."
   (unless (fboundp 'emoji--command-Emoji)
   (funcall (emoji--define-transient
-            (cons "Recent" (sticky-value emoji--recent)) t)))
+            (cons "Recent" (multisession-value emoji--recent)) t)))
 (defun emoji-search ()
@@ -530,17 +530,18 @@ character) under point is."
   (lambda ()
     (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."

reply via email to

[Prev in Thread] Current Thread [Next in Thread]