[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r118139: tildify.el (tildify--pick-alist-entry): ren
From: |
Michal Nazarewicz |
Subject: |
[Emacs-diffs] trunk r118139: tildify.el (tildify--pick-alist-entry): rename from tildify-mode-alist |
Date: |
Fri, 17 Oct 2014 07:21:36 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r118139: tildify.el (tildify--pick-alist-entry): rename from tildify-mode-alist,
Michal Nazarewicz <=