[Emacs] Pull frames-only functions to top level
This commit is contained in:
parent
12cb284b01
commit
736bdb16a0
@ -1152,8 +1152,7 @@ programming mode.
|
||||
*** display-buffer-alist
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar imalison:use-frames-only)
|
||||
(when imalison:use-frames-only
|
||||
(setq pop-up-frames 'graphic-only)
|
||||
|
||||
(defvar imalison:use-frames-only nil)
|
||||
|
||||
(defun imalison:use-frames-only ()
|
||||
@ -1201,12 +1200,12 @@ programming mode.
|
||||
(apply 'other-frame 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-x o" 'imalison:other-window)
|
||||
(bind-key "C-x 3" 'imalison:split-window-right)
|
||||
(bind-key "C-x O" (lambda () (interactive) (imalison:other-window -1)))
|
||||
|
||||
(setq display-buffer-alist
|
||||
'((".*popup\*" . (display-buffer-pop-up-window))
|
||||
;; XXX: This was a failed attempt to get magit-commit to properly use
|
||||
|
Loading…
Reference in New Issue
Block a user