Mercurial > hg > xemacs-beta
comparison lisp/prim/subr.el @ 165:5a88923fcbfe r20-3b9
Import from CVS: tag r20-3b9
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:44:42 +0200 |
| parents | 0132846995bd |
| children | 929b76928fce |
comparison
equal
deleted
inserted
replaced
| 164:4e0740e5aab2 | 165:5a88923fcbfe |
|---|---|
| 530 "Do nothing and return nil. | 530 "Do nothing and return nil. |
| 531 This function accepts any number of arguments, but ignores them." | 531 This function accepts any number of arguments, but ignores them." |
| 532 (interactive) | 532 (interactive) |
| 533 nil) | 533 nil) |
| 534 | 534 |
| 535 (defmacro eval-in-buffer (buffer &rest forms) | 535 (define-function 'eval-in-buffer 'with-current-buffer) |
| 536 "Evaluate FORMS in BUFFER. | 536 (make-obsolete 'eval-in-buffer 'with-current-buffer) |
| 537 See also: `save-current-buffer' and `save-excursion'." | |
| 538 ;; by Stig@hackvan.com | |
| 539 (` (save-current-buffer | |
| 540 (set-buffer (, buffer)) | |
| 541 (,@ forms)))) | |
| 542 | 537 |
| 543 ;;; The real defn is in abbrev.el but some early callers | 538 ;;; The real defn is in abbrev.el but some early callers |
| 544 ;;; (eg lisp-mode-abbrev-table) want this before abbrev.el is loaded... | 539 ;;; (eg lisp-mode-abbrev-table) want this before abbrev.el is loaded... |
| 545 | 540 |
| 546 (if (not (fboundp 'define-abbrev-table)) | 541 (if (not (fboundp 'define-abbrev-table)) |