colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Pull frames-only functions to top level

Browse Source
This commit is contained in:
Ivan Malison 2016-11-07 16:41:36 -08:00
parent 12cb284b01
commit 736bdb16a0
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 48 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dotfiles/emacs.d/README.org
View File

@ -1152,8 +1152,7 @@ programming mode.
*** display-buffer-alist *** display-buffer-alist
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar imalison:use-frames-only) (defvar imalison:use-frames-only)
(when imalison:use-frames-only
(setq pop-up-frames 'graphic-only)
(defvar imalison:use-frames-only nil) (defvar imalison:use-frames-only nil)
(defun imalison:use-frames-only () (defun imalison:use-frames-only ()
@ -1201,12 +1200,12 @@ programming mode.
(apply 'other-frame args) (apply 'other-frame args)
(apply 'other-window args))) (apply 'other-window args)))
(when imalison:use-frames-only
(setq pop-up-frames 'graphic-only)
(bind-key "C-c s" 'imalison:other-window-or-frame-next-command) (bind-key "C-c s" 'imalison:other-window-or-frame-next-command)
(bind-key "C-x o" 'imalison:other-window) (bind-key "C-x o" 'imalison:other-window)
(bind-key "C-x 3" 'imalison:split-window-right) (bind-key "C-x 3" 'imalison:split-window-right)
(bind-key "C-x O" (lambda () (interactive) (imalison:other-window -1))) (bind-key "C-x O" (lambda () (interactive) (imalison:other-window -1)))
(setq display-buffer-alist (setq display-buffer-alist
'((".*popup\*" . (display-buffer-pop-up-window)) '((".*popup\*" . (display-buffer-pop-up-window))
;; XXX: This was a failed attempt to get magit-commit to properly use ;; XXX: This was a failed attempt to get magit-commit to properly use