[PATCH] org-contacts.el, add alias properties

[Feng Shu <tumashu@gmail.com>]

[-- Attachment #1: 0001-org-contacts.el-add-name-alias-property.patch --]
[-- Type: text/x-diff, Size: 1451 bytes --]

From 27f65b3939ca60ec7abf7d066b3aadfff44396a8 Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu@gmail.com>
Date: Wed, 10 Apr 2013 21:05:15 +0800
Subject: [PATCH] org-contacts.el, add name alias property.

* contrib/lisp/org-contacts.el (org-contacts-alias-property): add new
  varible
  (org-contacts-matcher): add org-contacts-alias-property to this list

Name alias is a very useful feature, especially for CJK users.
---
 contrib/lisp/org-contacts.el |    7 +++++++
 1 个文件被修改，插入 7 行(+)

diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
index 65eeea8..a3c4aed 100644
--- a/contrib/lisp/org-contacts.el
+++ b/contrib/lisp/org-contacts.el
@@ -81,6 +81,12 @@ When set to nil, all your Org files will be used."
   :type 'string
   :group 'org-contacts)
 
+(defcustom org-contacts-alias-property "ALIAS"
+  "Name of the property for contact name alias."
+  :type 'string
+  :group 'org-contacts)
+
+
 (defcustom org-contacts-birthday-format "Birthday: %l (%Y)"
   "Format of the anniversary agenda entry.
 The following replacements are available:
@@ -129,6 +135,7 @@ The following replacements are available:
 
 (defcustom org-contacts-matcher
   (mapconcat 'identity (list org-contacts-email-property
+			     org-contacts-alias-property
 			     org-contacts-tel-property
 			     org-contacts-address-property
 			     org-contacts-birthday-property)
-- 
1.7.10.4


[-- Attachment #2: Type: text/plain, Size: 6 bytes --]



--