[Emacs-diffs] master b334124 2/2: Suppress warnings in tildify.el

[Lars Ingebrigtsen]

branch: master
commit b334124a23f24b4d66da62fc99d92ebdefdd0756
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Suppress warnings in tildify.el
    
    * lisp/textmodes/tildify.el (tildify--deprecated-ignore-evironments):
    (tildify-tildify, tildify-mode): Suppress warnings about obsolete
    internal function `tildify--pick-alist-entry'.  Apparently these
    semi-deprecated functions rely on each other.
---
 lisp/textmodes/tildify.el | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el
index cf33d44..ccbc2b0 100644
--- a/lisp/textmodes/tildify.el
+++ b/lisp/textmodes/tildify.el
@@ -261,7 +261,9 @@ Call CALLBACK on each region outside of environment to 
ignore.  Stop scanning
 the region as soon as CALLBACK returns nil.  Environments to ignore are
 defined by deprecated `tildify-ignored-environments-alist'.   CALLBACK may be
 called on portions of the buffer outside of [BEG END)."
-  (let ((pairs (tildify--pick-alist-entry tildify-ignored-environments-alist)))
+  (let ((pairs (with-suppressed-warnings ((obsolete tildify--pick-alist-entry))
+                 (tildify--pick-alist-entry
+                  tildify-ignored-environments-alist))))
     (if pairs
         (tildify-foreach-ignore-environments pairs callback beg end)
       (funcall callback beg end))))
@@ -355,7 +357,9 @@ replacements done and response is one of symbols: t (all 
right), nil
     (goto-char beg)
     (let ((regexp tildify-pattern)
           (match-number 1)
-          (tilde (or (tildify--pick-alist-entry tildify-string-alist)
+          (tilde (or (with-suppressed-warnings ((obsolete
+                                                 tildify--pick-alist-entry))
+                       (tildify--pick-alist-entry tildify-string-alist))
                      tildify-space-string))
           (end-marker (copy-marker end))
           answer
@@ -365,7 +369,9 @@ replacements done and response is one of symbols: t (all 
right), nil
           (message-log-max nil)
           (count 0))
       ;; For the time being, tildify-pattern-alist overwrites tildify-pattern
-      (let ((alist (tildify--pick-alist-entry tildify-pattern-alist)))
+      (let ((alist (with-suppressed-warnings ((obsolete
+                                               tildify--pick-alist-entry))
+                     (tildify--pick-alist-entry tildify-pattern-alist))))
         (when alist
           (setq regexp (car alist) match-number (cadr alist))))
       (while (and (not quit)
@@ -491,7 +497,9 @@ representation for current major mode, the 
`tildify-space-string' buffer-local
 variable will be set to the representation."
   nil " ~" nil
   (when tildify-mode
-    (let ((space (tildify--pick-alist-entry tildify-string-alist)))
+    (let ((space (with-suppressed-warnings ((obsolete
+                                             tildify--pick-alist-entry))
+                   (tildify--pick-alist-entry tildify-string-alist))))
       (if (not (string-equal " " (or space tildify-space-string)))
           (when space
             (setq tildify-space-string space))