From b334124a23f24b4d66da62fc99d92ebdefdd0756 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 13 Jun 2019 02:23:40 +0200 Subject: 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(-) (limited to 'lisp/textmodes') diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el index cf33d44ed3c..ccbc2b086c6 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)) -- cgit v1.2.1