Mercurial > hg > xemacs-beta
comparison lisp/obsolete.el @ 5255:b5611afbcc76
Support process plists, for greater GNU compatibility.
src/ChangeLog addition:
2010-09-02 Aidan Kehoe <kehoea@parhasard.net>
* process.c (process_getprop, process_putprop, process_remprop)
(process_plist, process_setplist, reinit_process_early):
Add functions to modify a process's property list.
* process-slots.h (MARKED_SLOT): Add a plist slot.
* fns.c (Fobject_setplist): New function, analogous to #'setplist,
but more general.
Update the documentation in the other plist functions to reflect
that processes now have property lists.
* emacs.c (main_1): Call reinit_process_early(), now processes have
plist methods that need to be initialised.
* symbols.c (reinit_symbol_objects_early): Fsetplist is the named
setplist method for symbols.
lisp/ChangeLog addition:
2010-09-02 Aidan Kehoe <kehoea@parhasard.net>
* obsolete.el (process-get):
Make #'process-get, #'process-put, #'process-plist,
#'set-process-plist available as aliases to the more general
functions #'get, #'put, #'object-plist, #'object-setplist, for GNU
compatibility.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Thu, 02 Sep 2010 12:23:11 +0100 |
parents | 7d06a8bf47d2 |
children | d1b17a33450b 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
5254:1537701f08a1 | 5255:b5611afbcc76 |
---|---|
426 (make-compatible 'define-widget-keywords "Just use them") | 426 (make-compatible 'define-widget-keywords "Just use them") |
427 | 427 |
428 (define-function 'purecopy 'identity) | 428 (define-function 'purecopy 'identity) |
429 (make-obsolete 'purecopy "purespace is not available in XEmacs.") | 429 (make-obsolete 'purecopy "purespace is not available in XEmacs.") |
430 | 430 |
431 (define-compatible-function-alias 'process-get 'get) | |
432 (define-compatible-function-alias 'process-put 'put) | |
433 (define-compatible-function-alias 'process-plist 'object-plist) | |
434 (define-compatible-function-alias 'set-process-plist 'object-setplist) | |
435 | |
431 (provide 'obsolete) | 436 (provide 'obsolete) |
432 ;;; obsolete.el ends here | 437 ;;; obsolete.el ends here |