[elpa] externals/cape e6435dda31 4/5: Update README

[ELPA Syncer]

branch: externals/cape
commit e6435dda31d0893b7257c88cd5c374809fe14b3b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Update README
---
 README.org | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/README.org b/README.org
index 1acc9e0ba1..b26f9bc4db 100644
--- a/README.org
+++ b/README.org
@@ -147,30 +147,30 @@ small example completion backend, which can be used with 
both
 ~completion-at-point~ (Corfu, default completion) and Company.
 
 #+begin_src emacs-lisp
-(defvar emojis
+(defvar demo-alist
   '((":-D" . "😀")
     (";-)" . "😉")
     (":-/" . "😕")
     (":-(" . "🙁")
     (":-*" . "😙")))
 
-(defun emoji-backend (action &optional arg &rest _)
+(defun demo-backend (action &optional arg &rest _)
   (pcase action
     ('prefix (and (memq (char-before) '(?: ?\;))
                   (cons (string (char-before)) t)))
-    ('candidates (all-completions arg emojis))
-    ('annotation (concat " " (cdr (assoc arg emojis))))
+    ('candidates (all-completions arg demo-alist))
+    ('annotation (concat " " (cdr (assoc arg demo-alist))))
     ('post-completion
      (let ((str (buffer-substring (- (point) 3) (point))))
        (delete-region (- (point) 3) (point))
-     (insert (cdr (assoc str emojis)))))))
+     (insert (cdr (assoc str demo-alist)))))))
 
-;; Register emoji backend with `completion-at-point'
+;; Register demo backend with `completion-at-point'
 (setq completion-at-point-functions
-      (list (cape-company-to-capf #'emoji-backend)))
+      (list (cape-company-to-capf #'demo-backend)))
 
-;; Register emoji backend with Company.
-(setq company-backends '(emoji-backend))
+;; Register demo backend with Company.
+(setq company-backends '(demo-backend))
 #+end_src
 
 It is possible to merge multiple Company backends and use them as a single Capf