From: Michal Nazarewicz <mina86@mina86.com>
Date: Fri, 17 Oct 2014 07:20:51 +0000 (+0200)
Subject: tildify.el (tildify--pick-alist-entry): rename from tildify-mode-alist
X-Git-Tag: emacs-25.0.90~2635^2~679^2~32
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e31f014c0fdc15d629913e7bb7959e15fa3d8bc1;p=emacs.git

tildify.el (tildify--pick-alist-entry): rename from tildify-mode-alist

tildify-mode-alist does not really describe what the functino does so
rename it to tildify--pick-alist-entry.  This also makes it clear that
the function is an internal one.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b69ab31db3d..c7678bc2e3c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-06-05  Michal Nazarewicz  <mina86@mina86.com>
+
+	* textmodes/tildify.el (tildify--pick-alist-entry): rename from
+	tildify-mode-alist.
+
 2014-10-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/eieio.el: Use lexical-binding drop non-GV fallback.
diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el
index 50fee2f4b84..91f5a38ce0b 100644
--- a/lisp/textmodes/tildify.el
+++ b/lisp/textmodes/tildify.el
@@ -4,7 +4,7 @@
 
 ;; Author:     Milan Zamazal <pdm@zamazal.org>
 ;;             Michal Nazarewicz <mina86@mina86.com>
-;; Version:    4.5.3
+;; Version:    4.5.4
 ;; Keywords:   text, TeX, SGML, wp
 
 ;; This file is part of GNU Emacs.
@@ -226,13 +226,13 @@ won't be prompted for confirmation of each substitution."
 
 ;;; *** Auxiliary functions ***
 
-(defun tildify-mode-alist (mode-alist &optional mode)
+(defun tildify--pick-alist-entry (mode-alist &optional mode)
   "Return alist item for the MODE-ALIST in the current major MODE."
   (let ((alist (cdr (or (assoc (or mode major-mode) mode-alist)
 			(assoc t mode-alist)))))
     (if (and alist
 	     (symbolp alist))
-	(tildify-mode-alist mode-alist alist)
+	(tildify--pick-alist-entry mode-alist alist)
       alist)))
 
 (defun tildify-foreach-region-outside-env (beg end callback)
@@ -244,7 +244,7 @@ arguments specifying the region to operate on.  Stop scanning the
 region as soon as CALLBACK returns nil.  Environments to ignore
 are determined from `tildify-ignored-environments-alist'."
   (declare (indent 2))
-  (let ((pairs (tildify-mode-alist tildify-ignored-environments-alist)))
+  (let ((pairs (tildify--pick-alist-entry tildify-ignored-environments-alist)))
     (if (not pairs)
         (funcall callback beg end)
       (let ((func (lambda (b e)
@@ -300,10 +300,10 @@ replacements done and response is one of symbols: t (all right), nil
 (quit), force (replace without further questions)."
   (save-excursion
     (goto-char beg)
-    (let* ((alist (tildify-mode-alist tildify-pattern-alist))
+    (let* ((alist (tildify--pick-alist-entry tildify-pattern-alist))
 	   (regexp (car alist))
 	   (match-number (cadr alist))
-	   (tilde (tildify-mode-alist tildify-string-alist))
+	   (tilde (tildify--pick-alist-entry tildify-string-alist))
 	   (end-marker (copy-marker end))
 	   answer
 	   bad-answer