[Emacs-diffs] trunk r118139: tildify.el (tildify--pick-alist-entry): rename from tildify-mode-alist

[Michal Nazarewicz]

------------------------------------------------------------
revno: 118139
revision-id: address@hidden
parent: address@hidden
committer: Michal Nazarewicz <address@hidden>
branch nick: emacs-trunk
timestamp: Fri 2014-10-17 09:20:51 +0200
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/textmodes/tildify.el      tildify.el-20091113204419-o5vbwnq5f7feedwu-1683

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-10-17 05:09:24 +0000
+++ b/lisp/ChangeLog    2014-10-17 07:20:51 +0000
@@ -1,3 +1,8 @@
+2014-06-05  Michal Nazarewicz  <address@hidden>
+
+       * textmodes/tildify.el (tildify--pick-alist-entry): rename from
+       tildify-mode-alist.
+
 2014-10-17  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/eieio.el: Use lexical-binding drop non-GV fallback.

=== modified file 'lisp/textmodes/tildify.el'
--- a/lisp/textmodes/tildify.el 2014-06-05 14:42:07 +0000
+++ b/lisp/textmodes/tildify.el 2014-10-17 07:20:51 +0000
@@ -4,7 +4,7 @@
 
 ;; Author:     Milan Zamazal <address@hidden>
 ;;             Michal Nazarewicz <address@hidden>
-;; Version:    4.5.3
+;; Version:    4.5.4
 ;; Keywords:   text, TeX, SGML, wp
 
 ;; This file is part of GNU Emacs.
@@ -226,13 +226,13 @@
 
 ;;; *** 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 @@
 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 @@
 (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