comparison lisp/obsolete.el @ 274:ca9a9ec9c1c1 r21-0b35

Import from CVS: tag r21-0b35
author cvs
date Mon, 13 Aug 2007 10:29:42 +0200
parents c5d627a313b1
children 6330739388db
comparison
equal deleted inserted replaced
273:411aac7253ef 274:ca9a9ec9c1c1
312 (make-obsolete-variable 'trim-versions-without-asking 'delete-old-versions) 312 (make-obsolete-variable 'trim-versions-without-asking 'delete-old-versions)
313 ;;; Old XEmacs name; kept around for compatibility. 313 ;;; Old XEmacs name; kept around for compatibility.
314 (define-obsolete-variable-alias 'after-write-file-hooks 'after-save-hook) 314 (define-obsolete-variable-alias 'after-write-file-hooks 'after-save-hook)
315 (define-obsolete-function-alias 'truename 'file-truename) 315 (define-obsolete-function-alias 'truename 'file-truename)
316 316
317 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; paths
318
319 (defvar site-directory nil
320 "This used to be the location of the site-lisp directory.")
321 (make-obsolete-variable 'site-directory "call paths-find-site-lisp-directory instead.")
322
323 (defvar Info-default-directory-list nil
324 "This used to be the initial value of Info-directory-list.
325 If you want to change the locations where XEmacs looks for info files,
326 set Info-directory-list.")
327 (make-obsolete-variable 'Info-default-directory-list 'Info-directory-list)
328
317 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks 329 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks
318 330
319 (make-obsolete-variable 'auto-fill-hook 'auto-fill-function) 331 (make-obsolete-variable 'auto-fill-hook 'auto-fill-function)
320 (make-obsolete-variable 'blink-paren-hook 'blink-paren-function) 332 (make-obsolete-variable 'blink-paren-hook 'blink-paren-function)
321 (make-obsolete-variable 'lisp-indent-hook 'lisp-indent-function) 333 (make-obsolete-variable 'lisp-indent-hook 'lisp-indent-function)