# HG changeset patch # User Stefan Monnier # Date 1044913514 0 # Node ID c2ff7876bd6067459e29e21bd0c6652b9dda5c14 # Parent 64195811ff44e68fc9ccba89a3875bedfca8dc11 (process-get): Add setf method. diff -r 64195811ff44 -r c2ff7876bd60 lisp/emacs-lisp/cl-macs.el --- a/lisp/emacs-lisp/cl-macs.el Mon Feb 10 21:44:24 2003 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Mon Feb 10 21:45:14 2003 +0000 @@ -1724,6 +1724,7 @@ (defsetf process-buffer set-process-buffer) (defsetf process-filter set-process-filter) (defsetf process-sentinel set-process-sentinel) +(defsetf process-get process-put) (defsetf read-mouse-position (scr) (store) (list 'set-mouse-position scr (list 'car store) (list 'cdr store))) (defsetf screen-height set-screen-height t)