Better abbrevs

diff --git a/sotlisp.el b/sotlisp.el
index 1935e45f161937785f8771733e8173485c84b368..07ffb195e571d6eaed48853a9ab61117cc302f85 100644 (file)
--- a/sotlisp.el
+++ b/sotlisp.el
@@ -288,17 +288,17 @@ The space char is not included.  Any \"$\" are also removed."
     ("sbr" . "search-backward-regexp $ nil 'noerror")\r
     ("scb" . "skip-chars-backward \"$\r\n[:blank:]\"")\r
     ("scf" . "skip-chars-forward \"$\r\n[:blank:]\"")\r
-    ("se" . "save-excursion\n")\r
+    ("se" . "save-excursion")\r
     ("sf" . "search-forward $ nil 'noerror")\r
     ("sfr" . "search-forward-regexp $ nil 'noerror")\r
     ("sic" . "self-insert-command")\r
     ("sl" . "string<")\r
     ("sm" . "string-match \"$\"")\r
-    ("smd" . "save-match-data\n")\r
+    ("smd" . "save-match-data")\r
     ("sn" . "symbol-name ")\r
     ("sp" . "stringp ")\r
     ("sq" . "string= ")\r
-    ("sr" . "save-restriction\n")\r
+    ("sr" . "save-restriction")\r
     ("ss" . "substring ")\r
     ("ssn" . "substring-no-properties ")\r
     ("ssnp" . "substring-no-properties ")\r
@@ -315,7 +315,7 @@ The space char is not included.  Any \"$\" are also removed."
     ("wf" . "write-file ")\r
     ("wh" . "while ")\r
     ("wl" . "window-list nil 'nominibuffer")\r
-    ("wtb" . "with-temp-buffer\n")\r
+    ("wtb" . "with-temp-buffer")\r
     ("wtf" . "with-temp-file ")\r
     )\r
   "Alist of (ABBREV . EXPANSION) used by `sotlisp'.")\r