-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathinit.elc
66 lines (61 loc) · 20.2 KB
/
init.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
;ELC
;;; Compiled
;;; in Emacs version 24.5.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\306=\203 \307\310!\210\310\211\202' \311=\203' \312\313!\210\314\313!\210\315\313!\210\307\313!\210\316\317\320!!\210\321\322\323\324!\325\"!\326\211 \203K \f@\327\330 \"\210\fA\211\204< *\331\211\326\207" [system-type coding-system-for-read coding-system-for-write path --dolist-tail-- default-directory gnu/linux prefer-coding-system utf-8 darwin set-default-coding-systems utf-8-unix set-terminal-coding-system set-keyboard-coding-system load-file expand-file-name "~/.emacs.d/shellenv.el" reverse split-string getenv "PATH" ":" nil add-to-list exec-path "~/" command-line-default-directory] 5)
(defalias 'add-to-load-path #[(&rest paths) "\305 \305\211\203) \n@\306 P! \307\310\f\"\210\311\312!\203! \312 \210)\nA\211\204\n \305 +\207" [path paths --dolist-tail-- user-emacs-directory default-directory nil expand-file-name add-to-list load-path fboundp normal-top-level-add-subdirs-to-load-path] 4])
(byte-code "\306\307\310\311\312$\210\313\314\315\316B\"\210\317\320\316!\321BBC\322\323!\203' \324\325\326\"\210\327\330\325\"\210\331\332!\210\313\333\334\"\210\313\333\335\"\210\336 \210\331\337!\210\340 \210\331\341!\210\342 \210\343\344\345\"\210\346\211\346\331\347!\210\350\351\331\352!\210\343\353\346\"\210@\354PA\355\356!\210\357 \210B\360_B\361C\362D\363\364!\210\365\364!\210\366\364!\210\331\367!\210\370E\371F\372G\345\211HI\373J\374\375!\210\376 \210\331\377!\210\201N \201O K\"K\201P \201Q \201R \"\210\201P \201S \377\"\210\201P \201T \201U \"\210\201V L\331\201W !\210\327\201X \201Y \"\210\327\201Z \201Y \"\210\201[ \346!\210\201\\ \210\327\201] \201Y \"\210\201P \201^ \201_ \"\210\201P \201` \201a \"\210\201P \201b \201c \"\210\201P \201d \201e \"\210\201P \201f \201g \"\210\201P \201h \201i \"\210\201j \356!\210\201k \201l \201m \201n \201o \201p \201q &\210\331\201r !\210\331\201s !\210\201t \346!\210\201u M\201v \201w #\210\201u M\201x \201y #\210\201z \210\313\201{ \201X \"\210\313\201{ \201Z \"\210\313\201{ \201| \"\210\313\201{ \201} \"\210\313\201{ \201~ \"\210\331\201 !\210\327\201\200 \201\201 \"\210\327\201\202 \201\201 \"\210\331\201\203 !\210\201\204 \356!\207" [auto-save-file-name-transforms inhibit-splash-screen history-delete-duplicates set-mark-command-repeat-pop uniquify-buffer-name-style uniquify-ignore-buffers-re add-to-load-path "elisp" "elpa" "conf" "public_repos" add-to-list backup-directory-alist "." "~/.emacs.d/backups/" ".*" expand-file-name (t) fboundp mac-input-source defalias my-mac-selected-keyboard-input-source-chage-function #[nil "\300 \301\302\303\"\203 \304\202 \305!)\207" [mac-input-source set-cursor-color string-match "\\.US$" "yellow" "Red"] 4 "英語のときはカーソルの色を黄色に、日本語のときは赤にします."] add-hook mac-selected-keyboard-input-source-change-hook require package package-archives ("melpa" . "http://melpa.milkbox.net/packages/") ("marmalade" . "http://marmalade-repo.org/packages/") package-initialize auto-install auto-install-compatibility-setup linum global-linum-mode set-default bidi-display-reordering nil t uniquify post-forward-angle-brackets "*[^*]+*" saveplace save-place "places" savehist-mode 1 display-time 10 10000 1000 menu-bar-mode -1 tool-bar-mode scroll-bar-mode migemo "cmigemo" ("-q" "--emacs") "/usr/local/share/migemo/utf-8/migemo-dict" utf-8 load-library "migemo" migemo-init smart-compile user-emacs-directory save-place-file gc-cons-threshold message-log-max history-length migemo-command migemo-options migemo-dictionary migemo-user-dictionary migemo-regex-dictionary migemo-coding-system smart-compile-alist compilation-window-height ac-completing-map append (("\\.rb$" . "ruby %f")) global-set-key "f" dired-toggle "c" "" "c" 15 git-gutter enh-ruby-mode git-gutter-mode web-mode global-git-gutter-mode git-gutter:linum-setup enh-ruby-mode-hook "" git-gutter:toggle "v=" git-gutter:popup-hunk "p" git-gutter:previous-hunk "n" git-gutter:next-hunk "vs" git-gutter:stage-hunk "vr" git-gutter:revert-hunk global-anzu-mode custom-set-variables (anzu-deactivate-region t) (anzu-mode-lighter "") (anzu-search-threshold 1000) (custom-safe-themes '("bdaab014ec6785f64b72efbea80808b762d8971247aacf2ffc6b76a39b9ed97c" default)) (rspec-use-rake-when-possible nil) (tab-width 2) auto-complete auto-complete-config global-auto-complete-mode define-key [134217838] ac-next [134217840] ac-previous ac-config-default ac-modes inferior-scheme3-mode gauche-mode kahua-mode ac-slime slime-mode-hook set-up-slime-ac slime-repl-mode-hook popwin popwin-mode] 8)
(defvar helm-samewindow nil)
(byte-code "\305B\306B\307B\310B\311B\312B\313B\314B\315B\316B\317B\320B\321B\322\323!\210\324\325!\210\326 \327\330#\210\326 \331\332#\210\322\333!\203V \334\335\336!\210\337\322\340!\210\341\342\343\"\210\322\344!\210\326 \345\346#\210\326 \347\350#\210\351\334\207" [popwin:special-display-config helm-read-file-map helm-samewindow helm-swoop-map helm-swoop-move-to-line-cycle ("*anything*" :height 20) (dired-mode :position top) "*Shell Command Output*" (compilation-mode :noselect t) "*slime-apropos*" "*slime-macroexpansion*" "*slime-description*" ("*slime-compilation*" :noselect t) "*slime-xref*" (sldb-mode :stick t) slime-repl-mode slime-connection-list-mode (" *undo-tree*" :width 0.3 :position right) require helm-config helm-mode 1 define-key "" delete-backward-char " " helm-execute-persistent-action popwin nil (lambda (#1=#:def-tmp-var) (defvar display-buffer-function #1#)) popwin:display-buffer (("*compilatoin*" :noselect t) ("helm" :regexp t :height 0.4)) helm-migemo eval-after-load "helm-migemo" #[nil "\300\301\302\"\207" [defalias helm-compile-source--candidates-in-buffer #[(source) "\302\303\"\211\203 \304\305 A\206 \306B\307B\"\202 )\207" [source it assoc candidates-in-buffer append candidates #[nil "\300\301 !\207" [helm-candidates-in-buffer helm-get-current-source] 2] ((volatile) (match identity))] 5]] 3] helm-swoop "" helm-previous-line "" helm-next-line t] 4)
#@98 シンボル検索用Migemo無効版helm-swoop
(fn &key $QUERY ($MULTILINE current-prefix-arg))
(defalias 'helm-swoop-nomigemo #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206 \311\nDA@ \f\203@ \f@\312>\203) \fAA\211\202 \313>A@\2037 \311\211\202 \314\315\f@\"\210\202 )\316 \317\320\321\322\323\324 !\"\307 \310 &+\207" [#1# $query current-prefix-arg $multiline #2=#:--cl-keys-- helm-swoop-pre-input-function plist-member :$query :$multiline nil (:$query :$multiline :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:$query :$multiline)" #[nil "\300\301\302\303!\"\207" [format "\\_<%s\\_> " thing-at-point symbol] 4] helm-swoop :$source delete (migemo) copy-sequence helm-c-source-swoop] 8 (#$ . 6444) nil])
(byte-code "\300\301\302\"\210\303\304!\203 \305\306\307\310\311$\210\312\306\311\"\210\313\314!\207" [global-set-key [201326650] helm-swoop-nomigemo featurep helm-anything ad-add-advice helm-resume (helm-swoop-resume nil t (advice lambda nil "helm-anything-resumeで復元できないのでその場合に限定して無効化" ad-do-it)) around nil ad-activate global-ace-isearch-mode 1] 5)
(defalias 'isearch-forward-or-helm-swoop #[(use-helm-swoop) "\303\304\305\306\n\307\"\203 \310\202# \306\n\311\"\203 \312\202# \306\n\313\"\205# \314!*\207" [helm-swoop-pre-input-function current-prefix-arg use-helm-swoop nil ignore call-interactively eql 1 isearch-forward 4 helm-swoop 16 helm-swoop-nomigemo] 4 nil "p"])
(byte-code "\306\307\310\"\210\311\312\313\314!\210\315\n\316\317#\210\315\n\320\321#\210\315\n\322\323#\210\313\324!\210\325 \210\326\327\211\327\207" [dired-dwim-target dired-recursive-copies dired-mode-map dired-details-hidden-string dired-details-hide-link-targets dired-details-initially-hide global-set-key "" isearch-forward-or-helm-swoop t always require dired-subtree define-key "i" dired-subtree-insert [tab] dired-subtree-remove "nn" dired-subtree-narrow dired-details dired-details-install "" nil] 5)
(defalias 'dired-subtree-after-insert-hook--dired-details #[nil "\300 \210\301 \207" [dired-details-delete-overlays dired-details-activate] 1])
(byte-code "\300\301\302\"\210\303\304\305\306\307$\210\310\304\307\"\207" [add-hook dired-subtree-after-insert-hook dired-subtree-after-insert-hook--dired-details ad-add-advice find-dired-sentinel (dired-details nil t (advice lambda (proc state) (ignore-errors (with-current-buffer (process-buffer proc) (dired-details-activate))))) after nil ad-activate] 5)
#@111 subtreeの親ディレクトリに移動。そうでなければ親ディレクトリを開く(^の挙動)。
(defalias 'dired-subtree-up-dwim #[(&optional arg) "\301!\206 \302 \207" [arg dired-subtree-up dired-up-directory] 2 (#$ . 8953) "p"])
(byte-code "\305\306\307#\210\310\311!\210\312\313\314\311\"\210\310\315!\210\310\316!\210\310\317!\210\320\211C\321\305\207" [dired-mode-map open-junk-file-format org-directory org-agenda-files org-src-fontify-natively define-key "^" dired-subtree-up-dwim require open-junk-file "~/Documents/junk/%Y-%m%d-%H%M%S." global-set-key "j" org ob-scheme ob-ruby "~/Documents/junk" t] 5)
(defalias 'my-org-confirm-babel-evaluate #[(lang body) "\301\230\206 \302\230\206 \303\230\206 \304\230\206 \305\230?\207" [lang "scheme" "emacs-lisp" "ruby" "C" "cpp"] 2])
(byte-code "\305\306\307\310\"\210\311\312\313\"\210\314\315\316!\210\317\314!\210\320\321\322!\210\323\324\314!\210\325\326\327\330\331\332\333&\210\334\335\336\314\"\210\337\314!\207" [org-confirm-babel-evaluate inhibit-startup-screen initial-scratch-message frame-title-format linum-format my-org-confirm-babel-evaluate global-set-key "l" org-store-link set-face-font default "Ricty-13:nil" t require smartparens-config smartparens-global-mode "" tool-bar-mode -1 "%f" global-linum-mode set-face-attribute linum nil :foreground "#800" :height 0.9 "%4d" load-theme gotham show-paren-mode] 7)
(defvar show-paren-delay 0)
(byte-code "\306\307!\210\310\311\312\"\210\313\314\307\"\210\310\315\316\"\210\313\317\320\"\210\321\322M\210\323\324\325!\210\323\320\313\326\327\"\210\330\327\325\307 \331\332 \333\334#\210\335\307!\210\336\307!\210\337\307!\210\320\211!\207" [recentf-max-saved-items history-length make-backup-files scroll-conservatively scroll-margin scroll-step show-paren-mode t set-face-background region "#555555" set-default show-trailing-whitespace trailing-whitespace "#b14770" indent-tabs-mode nil yes-or-no-p y-or-n-p 3000 savehist-mode 1 line-spacing 0 35 set-frame-parameter selected-frame alpha (0.9) line-number-mode column-number-mode cua-mode comint-scroll-show-maximum-output cua-enable-cua-keys] 5)
#@17 Lisp-mode-hooks
(defalias 'elisp-mode-hooks #[nil "\302\303\304\305#\205 \306\305\307 \207" [eldoc-idle-delay eldoc-echo-area-use-multiline-p require eldoc nil t 0.2 turn-on-eldoc-mode] 4 (#$ . 11117)])
(byte-code "\302\303\304\"\210\305\306\302\207" [visible-bell ring-bell-function add-hook emacs-lisp-mode-hook elisp-mode-hooks t ignore] 3)
(defvar my-lines-page-mode t)
(byte-code "\203: \306\n\203 \307P \310=\203! \f\310=\203! \311P\2028 \310=\203. \312P\2028 \f\310=\2038 \313P\314\315\316\317\320#\210\310\"\321\322\323\"\210\324\325\326\"\210\316#\327$\324\330\331\"\210\324\332\333\"\210\334\335!\210\324\336\337\"\210\324\340\341\"\207" [my-lines-page-mode my-mode-line-format size-indication-mode line-number-mode column-number-mode mode-line-position "%d" " of %%I" t " (%%l,%%c)" " L%%l" " C%%c" (:eval (format my-mode-line-format (count-lines (point-max) (point-min)))) set-frame-parameter nil fullscreen maximized keyboard-translate 8 127 global-set-key "?" help-command 100 "" other-window "\n" newline-and-indent require misc [134217830] forward-to-word [134217826] backward-to-word kill-whole-line split-height-threshold split-width-threshold] 4)
(defalias 'my-goto-line-beginning-or-indent #[(&optional $position) "\204 `\302 \210`\211=\205 \303\304!)\207" [$position $starting-position back-to-indentation move-beginning-of-line 1] 3 nil nil])
(global-set-key "" 'my-goto-line-beginning-or-indent)
(defalias 'my-get-face #[(&optional $point) "\204 `\302\303\"\206 \302\304\"\211\203 \305\306\307 \"!\202\" \305\310!)\207" [$point $face get-char-property read-face-name face message format "%s" "no face"] 5 nil nil])
(byte-code "\302\303!\210\304 \210\305\306 B\302\207" [indent-guide-recursive process-coding-system-alist require indent-guide indent-guide-global-mode t ("gosh" utf-8 . utf-8)] 2)
(defvar scheme-program-name "gosh -i")
(add-to-list 'auto-mode-alist '("\\.scm" . gauche-mode))
#@24 Major mode for Scheme.
(autoload 'gauche-mode "gauche-mode" '(#$ . 13078) t)
#@33 Run an inferior Scheme process.
(autoload 'run-scheme "gauche-mode" '(#$ . 13161) t)
#@28 Run Gauche on other window
(defalias 'scheme-other-window #[nil "\302\303 \304\245!\210\305p!\306 \210\307\310\311!!\210\312 !\210\307\310!!)\207" [buf-name scheme-program-name split-window-horizontally frame-width 2 buffer-name gauche-mode switch-to-buffer-other-window get-buffer-create "*scheme*" run-scheme] 3 (#$ . 13252) nil])
(byte-code "\302\303\304#\210\305\306\307\310#\210\305\311\307\312#\210\305\313\307\310#\210\305\314\307\310#\210\305\315\307\310#\210\305\316\307\310#\210\305\317\307\310#\210\305\320\307\310#\210\305\321\307\310#\210\305\322\307\310#\210\305\323\307\312#\210\305\324\307\310#\210\305\325\307\310#\210\305\326\307\310#\210\305\327\307\310#\210\305\330\307\331#\210\305\332\307\310#\210\305\333\307\331#\210\305\334\307\331#\210\305\335\307\331#\210\305\336\307\331#\210\305\337\307\310#\210\305\340\307\310#\210\305\341\307\310#\210\305\342\307\331#\210\305\343\307\310#\210\305\344\307\310#\210\305\345\307\310#\210\305\346\307\310#\210\305\347\350\310#\210\305\351\350\310#\210\305\352\350\310#\210\305\353\307\331#\210\305\354\350\310#\210\305\355\307\331#\210\305\356\307\310#\210\305\357\307\310#\210\305\360\307\331#\210\305\361\307\310#\210\305\362\307\312#\210\305\363\307\331#\210\305\364\307\331#\210\305\365\307\310#\210\305\366\307\310#\210\305\367\307\310#\210\305\370\307\310#\210\305\371\307\310#\210\305\372\307\310#\210\305\373\307\312#\210\305\374\307\310#\210\305\375\307\310#\210\305\376\307\310#\210\305\377\307\310#\210\305\201@ \307\310#\210\305\201A \307\310#\210\305\201B \307\310#\210\305\201C \307\310#\210\305\201D \307\310#\210\305\201E \307\310#\210\305\201F \307\310#\210\305\201G \307\310#\210\305\201H \307\310#\210\305\201I \307\310#\210\305\201J \307\310#\210\305\201K \201L \310#\210\305\201M \307\310#\210\201N \211\207" [global-map ruby-insert-encoding-magic-comment define-key "g" scheme-other-window put and-let* scheme-indent-function 1 begin0 0 call-with-client-socket call-with-input-conversion call-with-input-file call-with-input-process call-with-input-string call-with-iterator call-with-output-conversion call-with-output-file call-with-output-string call-with-temporary-file call-with-values dolist dotimes if-match 2 let*-values let-args let-keywords* let-match let-optionals* let-syntax let-values let/cc let1 letrec-syntax make match match-lambda match-let scheme-indent-fucntion match-let* match-letrec match-let1 match-define multiple-value-bind parameterize parse-options receive rxmatch-case rxmatch-cond rxmatch-if rxmatch-let syntax-rules unless until when while with-builder with-error-handler with-error-to-port with-input-conversion with-input-from-port with-input-from-process with-input-from-string with-iterator with-module with-output-conversion with-output-to-port with-output-to-process with-output-to-string with-port-locking with-string-io with-time-counter with-signal-handlers with-locking-mutex scheme-indent-funcion guard nil] 5)
#@36 Mode for editing ruby source files
(autoload 'ruby-mode "ruby-mode" '(#$ . 16200) t)
(byte-code "\301\302\303\"\210\301\302\304\"\210\301\302\305\"\210\301\302\306\"\210\307\310\311\312\313\307$\210\314\311!\210\315\316\317\"\210\320\321!\210\322\317!\210\320\323!\210\324\325\313\326#\210\327\325!\210\310\325\330\313\307$\210\314\325\307\"\210\331\332\333\"\207" [ruby-insert-encoding-magic-comment add-to-list auto-mode-alist ("\\.rb$latex " . ruby-mode) ("Capfile$" . ruby-mode) ("Gemfile$" . ruby-mode) ("Rakefile$" . ruby-mode) nil ad-add-advice enh-ruby-mode-set-encoding (stop-enh-ruby-mode-set-encoding nil t (advice lambda nil "If enh-ruby-not-insert-magic-comment is true, stops enh-ruby-mode-set-encoding." (if (and (boundp 'enh-ruby-not-insert-magic-comment) (not enh-ruby-not-insert-magic-comment)) ad-do-it))) around ad-activate set-default enh-ruby-not-insert-magic-comment t require ruby-block ruby-block-mode rcodetools ad-disable-advice comment-dwim rct-hack ad-update (rct-hack nil t (advice lambda nil "If comment-dwim is successively called, add => mark." (if (and (member major-mode '(ruby-mode enh-ruby-mode)) (eq last-command 'comment-dwim)) (insert "=>") ad-do-it))) eval-after-load enh-ruby-mode #[nil "\301\302\303#\210\301\304\305#\207" [enh-ruby-mode-map define-key "" xmp [134217737] rct-complete-symbol] 4]] 5)
(defalias 'make-ruby-scratch-buffer #[nil "r\300\301!q\210\302 \210p)\207" [get-buffer-create "*ruby scratch*" ruby-mode] 2])
(defalias 'ruby-scratch #[nil "\300\301 !\207" [pop-to-buffer make-ruby-scratch-buffer] 2 nil nil])
(byte-code "\300\301!\210\302\301\303\"\210\304 \210\300\305!\207" [require rspec-mode eval-after-load #[nil "\300 \207" [rspec-install-snippets] 1] custom-set-faces web-mode] 3)
#@21 Hooks for Web mode.
(defalias 'web-mode-hook #[nil "\306\307 >\204\f \307 B\310\311\312\211\312\211 \211\f\207" [time-stamp-line-limit write-file-hooks time-stamp-format time-stamp-end web-mode-markup-indent-offset web-mode-css-indent-offset -200 time-stamp " %3a %3b %02d %02H:%02M:%02S %:y %Z" "$" 2 web-mode-code-indent-offset web-mode-comment-style] 3 (#$ . 17959)])
(byte-code "\306\307\211\"\210\310\311\312\"\210\310\311\313\"\210\310\311\314\"\210\310\311\315\"\210\310\311\316\"\210\310\311\317\"\210\310\311\320\"\210\310\311\321\"\210\310\311\322\"\210\310\311\323\"\210\324\325\326!\210\327\326\330\331\332$\210\310\311\333\"\210\325\334!\210\325\335!\210\336 \337\335#\210\325\340!\210\341\306\342\343\"\210\306\342\344\"\210\306\345\344\"\210\306\346\344\"\210\347\350\351 \210\325\352!\210\325\353!\210\354\355\356!\210\3578\325\360!\2109:\361\362\363\"\210\361\364\365\"\210\306\366\367\"\207" [web-mode-engines-alist emacs-lisp-mode-map auto-async-byte-compile-exclude-file-regexp eldoc-idledeley eldoc-minor-mode-string inferior-lisp-program add-hook web-mode-hook add-to-list auto-mode-alist ("\\.phtml\\'" . web-mode) ("\\.tpl\\.php\\'" . web-mode) ("\\.[gj]sp\\'" . web-mode) ("\\.as[cp]x\\'" . web-mode) ("\\.erb\\'" . web-mode) ("\\.mustache\\'" . web-mode) ("\\.djhtml\\'" . web-mode) ("\\.html?\\'" . web-mode) ("\\.scss\\'" . web-mode) ("\\.css\\'" . web-mode) (("php" . "\\.phtml\\'") ("blade" . "\\.blade\\.")) require js2-mode autoload "js" nil t ("\\.js$" . js2-mode) minimap lispxmp define-key "" auto-async-byte-compile "/junk/" emacs-lisp-mode-hook enable-auto-async-byte-compile-mode turn-on-eldoc-mode lisp-interaction-mode-hook ielm-mode-hook 0.2 "" find-function-setup-keys kahua slime "ros -L sbcl -Q run" slime-setup (slime-repl slime-fancy slime-banner slime-indentation) utf-8-unix multi-term global-set-key "n" multi-term-next "p" multi-term-prev term-mode-hook #[nil "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\313#\210\301\315\316#\210\301\317\320#\210\301\321\322#\207" [term-raw-map define-key "" other-window "" term-paste "" term-send-backspace [134217828] term-send-forward-kill-word [M-backspace] term-send-backward-kill-word [134217855] "" nil "" term-send-raw "" toggle-term-view] 4] slime-net-coding-system shell-file-name multi-term-program] 5)
(defalias 'toggle-term-view #[nil "\302=\203 \303 \210\304 \210\305\306\307\"\210`\211\207\303=\205# \310 \210 b\210\311 \207" [major-mode multi-term-cursor-point term-mode fundamental-mode view-mode-enable local-set-key "" toggle-term-view view-mode-disable multi-term-internal] 3 nil nil])
(fset 'endspace " ")