Mercurial > hg > xemacs-beta
comparison lisp/obsolete.el @ 5125:b5df3737028a ben-lisp-object
merge
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Wed, 24 Feb 2010 01:58:04 -0600 |
| parents | c17c857e20bf |
| children | dc94bf0afa37 |
comparison
equal
deleted
inserted
replaced
| 5124:623d57b7fbe8 | 5125:b5df3737028a |
|---|---|
| 272 'isearch-yank-clipboard) | 272 'isearch-yank-clipboard) |
| 273 | 273 |
| 274 ;; too bad there's not a way to check for aref, assq, and nconc | 274 ;; too bad there's not a way to check for aref, assq, and nconc |
| 275 ;; being called on the values of functions known to return keymaps, | 275 ;; being called on the values of functions known to return keymaps, |
| 276 ;; or known to return vectors of events instead of strings... | 276 ;; or known to return vectors of events instead of strings... |
| 277 | |
| 278 ;;; Yes there is; make compiler macros for aref, assq, nconc, checking that | |
| 279 ;;; the car of the relevant argument is sane. | |
| 277 | 280 |
| 278 (make-obsolete-variable 'executing-macro 'executing-kbd-macro) | 281 (make-obsolete-variable 'executing-macro 'executing-kbd-macro) |
| 279 | 282 |
| 280 (define-compatible-function-alias 'interactive-form | 283 (define-compatible-function-alias 'interactive-form |
| 281 'function-interactive) ;GNU 21.1 | 284 'function-interactive) ;GNU 21.1 |
| 393 ;; Keywords already do The Right Thing in XEmacs | 396 ;; Keywords already do The Right Thing in XEmacs |
| 394 (make-compatible 'define-widget-keywords "Just use them") | 397 (make-compatible 'define-widget-keywords "Just use them") |
| 395 | 398 |
| 396 (make-obsolete 'function-called-at-point 'function-at-point) | 399 (make-obsolete 'function-called-at-point 'function-at-point) |
| 397 | 400 |
| 398 ;; As of 21.5, #'throw is a special form. This makes bytecode using it | 401 ;; As of 21.5, #'throw is a special operator. This makes bytecode using it |
| 399 ;; compiled for 21.4 fail; making this function available works around that. | 402 ;; compiled for 21.4 fail; making this function available works around that. |
| 400 (defun obsolete-throw (tag value) | 403 (defun obsolete-throw (tag value) |
| 401 "Ugly compatibility hack. | 404 "Ugly compatibility hack. |
| 402 | 405 |
| 403 See the implementation of #'funcall in eval.c. This should be removed once | 406 See the implementation of #'funcall in eval.c. This should be removed once |
| 406 | 409 |
| 407 (make-obsolete | 410 (make-obsolete |
| 408 'obsolete-throw | 411 'obsolete-throw |
| 409 "it says `obsolete' in the name, you know you shouldn't be using this.") | 412 "it says `obsolete' in the name, you know you shouldn't be using this.") |
| 410 | 413 |
| 414 (define-compatible-function-alias 'cl-mapc 'mapc) | |
| 415 | |
| 411 (provide 'obsolete) | 416 (provide 'obsolete) |
| 412 ;;; obsolete.el ends here | 417 ;;; obsolete.el ends here |