branch: master commit 1a16cf81f63ad1fba26fecaa9d8da54836ec2d7b Author: Artur Malabarba <bruce.connor...@gmail.com> Commit: Artur Malabarba <bruce.connor...@gmail.com>
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")