Mercurial > hg > xemacs-beta
comparison lisp/obsolete.el @ 424:11054d720c21 r21-2-20
Import from CVS: tag r21-2-20
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:26:11 +0200 |
| parents | 697ef44129c6 |
| children |
comparison
equal
deleted
inserted
replaced
| 423:28d9c139be4c | 424:11054d720c21 |
|---|---|
| 168 (defvar Info-default-directory-list nil | 168 (defvar Info-default-directory-list nil |
| 169 "This used to be the initial value of Info-directory-list. | 169 "This used to be the initial value of Info-directory-list. |
| 170 If you want to change the locations where XEmacs looks for info files, | 170 If you want to change the locations where XEmacs looks for info files, |
| 171 set Info-directory-list.") | 171 set Info-directory-list.") |
| 172 (make-obsolete-variable 'Info-default-directory-list 'Info-directory-list) | 172 (make-obsolete-variable 'Info-default-directory-list 'Info-directory-list) |
| 173 | |
| 174 (defvar init-file-user nil | |
| 175 "This used to be the name of the user whose init file was read at startup.") | |
| 176 (make-obsolete-variable 'init-file-user 'load-user-init-file-p) | |
| 173 | 177 |
| 174 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks | 178 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks |
| 175 | 179 |
| 176 (make-compatible-variable 'lisp-indent-hook 'lisp-indent-function) | 180 (make-compatible-variable 'lisp-indent-hook 'lisp-indent-function) |
| 177 (make-compatible-variable 'comment-indent-hook 'comment-indent-function) | 181 (make-compatible-variable 'comment-indent-hook 'comment-indent-function) |
| 239 (define-obsolete-function-alias 'show-buffer 'set-window-buffer) | 243 (define-obsolete-function-alias 'show-buffer 'set-window-buffer) |
| 240 (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo) | 244 (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo) |
| 241 (make-compatible 'eval-current-buffer 'eval-buffer) | 245 (make-compatible 'eval-current-buffer 'eval-buffer) |
| 242 (define-compatible-function-alias 'byte-code-function-p | 246 (define-compatible-function-alias 'byte-code-function-p |
| 243 'compiled-function-p) ;FSFmacs | 247 'compiled-function-p) ;FSFmacs |
| 248 | |
| 249 (define-obsolete-function-alias 'isearch-yank-x-selection | |
| 250 'isearch-yank-selection) | |
| 251 (define-obsolete-function-alias 'isearch-yank-x-clipboard | |
| 252 'isearch-yank-clipboard) | |
| 244 | 253 |
| 245 ;; too bad there's not a way to check for aref, assq, and nconc | 254 ;; too bad there's not a way to check for aref, assq, and nconc |
| 246 ;; being called on the values of functions known to return keymaps, | 255 ;; being called on the values of functions known to return keymaps, |
| 247 ;; or known to return vectors of events instead of strings... | 256 ;; or known to return vectors of events instead of strings... |
| 248 | 257 |