[elpa] master 1a16cf8 2/6: Add a few more abbrevs, suggested by Oleh

[Artur Malabarba]

branch: master
commit 1a16cf81f63ad1fba26fecaa9d8da54836ec2d7b
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    Add a few more abbrevs, suggested by Oleh
---
 sotlisp.el |   10 ++++++++--
 1 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/sotlisp.el b/sotlisp.el
index 8297345..a622428 100644
--- a/sotlisp.el
+++ b/sotlisp.el
@@ -254,6 +254,7 @@ The space char is not included.  Any \"$\" are also 
removed."
     ("dk" . "define-key ")
     ("dl" . "dolist (it $)")
     ("dmp" . "derived-mode-p '")
+    ("dm" . "defmacro $ ()\n  \"\"\n  ")
     ("dr" . "delete-region ")
     ("dv" . "defvar $ t\n  \"\"")
     ("e" . "error \"$\"")
@@ -268,6 +269,7 @@ The space char is not included.  Any \"$\" are also 
removed."
     ("fp" . "functionp ")
     ("frp" . "file-readable-p ")
     ("fs" . "forward-sexp 1")
+    ("fu" . "funcall ")
     ("fw" . "forward-word 1")
     ("g" . "goto-char ")
     ("gc" . "goto-char ")
@@ -296,11 +298,14 @@ The space char is not included.  Any \"$\" are also 
removed."
     ("lp" . "listp ")
     ("m" . "message \"$%s\"")
     ("mb" . "match-beginning 0")
+    ("mc" . "mapcar ")
+    ("mct" . "mapconcat ")
     ("me" . "match-end 0")
     ("ms" . "match-string 0")
     ("msn" . "match-string-no-properties 0")
     ("msnp" . "match-string-no-properties 0")
     ("msp" . "match-string-no-properties 0")
+    ("mt" . "mapconcat ")
     ("n" . "not ")
     ("nai" . "newline-and-indent$")
     ("nl" . "forward-line 1")
@@ -312,6 +317,7 @@ The space char is not included.  Any \"$\" are also 
removed."
     ("pa" . "point-max$")
     ("pg" . "plist-get ")
     ("pi" . "point-min$")
+    ("pz" . "propertize ")
     ("r" . "require '")
     ("ra" . "use-region-p$")
     ("rap" . "use-region-p$")
@@ -324,8 +330,8 @@ The space char is not included.  Any \"$\" are also 
removed."
     ("rris" . "replace-regexp-in-string ")
     ("rrs" . "replace-regexp-in-string ")
     ("rs" . "while (search-forward $ nil t)\n(replace-match \"\") nil t)")
-    ("rsb" . "re-search-backward $ nil 'noerror")
-    ("rsf" . "re-search-forward $ nil 'noerror")
+    ("rsb" . "re-search-backward \"$\" nil 'noerror")
+    ("rsf" . "re-search-forward \"$\" nil 'noerror")
     ("s" . "setq ")
     ("sb" . "search-backward $ nil 'noerror")
     ("sbr" . "search-backward-regexp $ nil 'noerror")