Mercurial > hg > xemacs-beta
comparison lisp/prim/subr.el @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:46:35 +0200 |
| parents | 376386a54a3c |
| children | b82b59fe008d |
comparison
equal
deleted
inserted
replaced
| 1:c0c6a60d29db | 2:ac2d302a0011 |
|---|---|
| 521 ; (eval-after-load file (read))) | 521 ; (eval-after-load file (read))) |
| 522 | 522 |
| 523 ; alternate names (not obsolete) | 523 ; alternate names (not obsolete) |
| 524 (if (not (fboundp 'mod)) (define-function 'mod '%)) | 524 (if (not (fboundp 'mod)) (define-function 'mod '%)) |
| 525 (define-function 'move-marker 'set-marker) | 525 (define-function 'move-marker 'set-marker) |
| 526 (define-function 'beep 'ding) ;preserve lingual purtity | 526 (define-function 'beep 'ding) ; preserve lingual purity |
| 527 (define-function 'indent-to-column 'indent-to) | 527 (define-function 'indent-to-column 'indent-to) |
| 528 (define-function 'backward-delete-char 'delete-backward-char) | 528 (define-function 'backward-delete-char 'delete-backward-char) |
| 529 (define-function 'search-forward-regexp (symbol-function 're-search-forward)) | 529 (define-function 'search-forward-regexp (symbol-function 're-search-forward)) |
| 530 (define-function 'search-backward-regexp (symbol-function 're-search-backward)) | 530 (define-function 'search-backward-regexp (symbol-function 're-search-backward)) |
| 531 (define-function 'remove-directory 'delete-directory) | 531 (define-function 'remove-directory 'delete-directory) |