* sbcl R

ran9er · Jun 20, 2013 · b918f72 · b918f72
1 parent 55f7114
commit b918f72
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 10 deletions.
diff --git a/_autoload-conf/_loaddefs b/_autoload-conf/_loaddefs
@@ -1,16 +1,18 @@
 (loaddefs-eval
- '(("jde.el"
-    (20929 52228 745000 0)
+ '(("slime.el"
+    (20930 26172 859000 0)
+    (autoload 'slime "slime" "" t)
+    (autoload 'sli "slime" "Not documented.\n\n(fn cmd)" t nil)
+    (autoload 'sbcl "slime" "Not documented.\n\n(fn)" t nil)
+    (autoload 'R "slime" "Not documented.\n\n(fn)" t nil))
+   ("jde.el"
+    (20930 26172 859000 0)
     (autoload 'jde-mode "jde" "" t))
    ("mew.el"
     (20929 50055 292000 0)
     (autoload 'mew "mew" nil t)
     (autoload 'mew-send "mew" nil t)
     (autoload 'mew-user-agent-compose "mew" nil t))
-   ("slime.el"
-    (20923 55132 108000 0)
-    (autoload 'slime "slime" "" t)
-    (autoload 'sli "slime" "Not documented.\n\n(fn cmd)" t nil))
    ("skeleton-pair.el"
     (20923 55132 76000 0)
     (autoload 'skeleton-pair-insert-maybe "skeleton-pair" "" t))

diff --git a/_autoload-conf/slime.el b/_autoload-conf/slime.el
@@ -102,3 +102,13 @@
        impl nil nil nil nil def))))
   (let ((cmd (read cmd)))
     (slime cmd)))
+
+;;;###autoload
+(defun sbcl ()
+  (interactive)
+  (slime 'sbcl))
+
+;;;###autoload
+(defun R ()
+  (interactive)
+  (slime 'R))
diff --git a/_eval-after-load/view.el b/_eval-after-load/view.el
@@ -22,12 +22,12 @@
   (when (get-buffer-window (current-buffer))
     (cond (window-system
            (set-face-foreground 'mode-line
-                                (if buffer-read-only (caar viewmode-mode-line-face)
-                                  (caadr viewmode-mode-line-face))))
+                                (if buffer-read-only (nth 0 (nth 0 viewmode-mode-line-face))
+                                  (nth 0 (nth 1 viewmode-mode-line-face)))))
           (t
            (set-face-background 'mode-line
-                                (if buffer-read-only (cadar viewmode-mode-line-face)
-                                  (cadadr viewmode-mode-line-face)))))))
+                                (if buffer-read-only (nth 1 (nth 0 viewmode-mode-line-face))
+                                  (nth 1 (nth 1 viewmode-mode-line-face))))))))
 ;; ** defmacro change-mode-line-color-advice
 (defmacro change-mode-line-color-advice (f)
   `(defadvice ,f (after change-mode-line-color activate)