diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-10-29 11:06:31 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-10-29 11:06:31 -0400 |
| commit | 84dcdbeb740222a9e3da636b87a2b757acc11334 (patch) | |
| tree | 62723aefccd747b5cd5c26de7186981b58cba43f /lisp/startup.el | |
| parent | a4f754ca0bc00311b38adf3d498c30ce82c3170d (diff) | |
| download | emacs-84dcdbeb740222a9e3da636b87a2b757acc11334.tar.gz | |
* lisp/emacs-lisp/cl-generic.el: Add (major-mode MODE) context
(cl--generic-derived-specializers): New function.
(cl--generic-derived-generalizer): New generalizer.
(cl-generic-generalizers): New specializer (derived-mode MODE).
(cl--generic-split-args): Apply the rewriter, if any.
(cl-generic-define-context-rewriter): New macro.
(major-mode): Use it to define a new context-rewriter, so we can write
`(major-mode MODE)' instead of `(major-mode (derived-mode MODE))'.
* lisp/frame.el (window-system): New context-rewriter so we can write
`(window-system VAL)' instead of (window-system (eql VAL)).
(cl--generic-split-args): Apply the rewriter, if any.
(frame-creation-function): Use the new syntax.
* lisp/term/x-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-owner-p)
(gui-backend-selection-exists-p, gui-backend-get-selection):
* lisp/term/w32-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-get-selection)
(gui-backend-selection-owner-p, gui-backend-selection-exists-p):
* lisp/term/pc-win.el (gui-backend-get-selection)
(gui-backend-selection-exists-p, gui-backend-selection-owner-p)
(gui-backend-set-selection, window-system-initialization)
(frame-creation-function, handle-args-function):
* lisp/term/ns-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-exists-p)
(gui-backend-get-selection):
* lisp/startup.el (handle-args-function):
* lisp/term/xterm.el (gui-backend-get-selection)
(gui-backend-set-selection): Use the new syntax.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 33855673170..13463107d2e 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -720,7 +720,7 @@ Window system startup files should add their own function to this method, which should parse the command line arguments. Those pertaining to the window system should be processed and removed from the returned command line.") -(cl-defmethod handle-args-function (args &context (window-system (eql nil))) +(cl-defmethod handle-args-function (args &context (window-system nil)) (tty-handle-args args)) (cl-defgeneric window-system-initialization (&optional _display) |