Mercurial > hg > xemacs-beta
comparison lisp/obsolete.el @ 398:74fd4e045ea6 r21-2-29
Import from CVS: tag r21-2-29
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:13:30 +0200 |
| parents | 8626e4521993 |
| children | 697ef44129c6 |
comparison
equal
deleted
inserted
replaced
| 397:f4aeb21a5bad | 398:74fd4e045ea6 |
|---|---|
| 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 |
| 342 (while (and (< i len) (< idx string-len)) | 351 (while (and (< i len) (< idx string-len)) |
| 343 (aset string idx (aref str i)) | 352 (aset string idx (aref str i)) |
| 344 (setq idx (1+ idx) i (1+ i))) | 353 (setq idx (1+ idx) i (1+ i))) |
| 345 string)) | 354 string)) |
| 346 | 355 |
| 347 ;; ### This function is not compatible with FSF in some cases. Hard | 356 ;; #### This function is not compatible with FSF in some cases. Hard |
| 348 ;; to fix, because it is hard to trace the logic of the FSF function. | 357 ;; to fix, because it is hard to trace the logic of the FSF function. |
| 349 ;; In case we need the exact behavior, we can always copy the FSF | 358 ;; In case we need the exact behavior, we can always copy the FSF |
| 350 ;; version, which is very long and does lots of unnecessary stuff. | 359 ;; version, which is very long and does lots of unnecessary stuff. |
| 351 (defun truncate-string-to-width (str end-column &optional start-column padding) | 360 (defun truncate-string-to-width (str end-column &optional start-column padding) |
| 352 "Truncate string STR to end at column END-COLUMN. | 361 "Truncate string STR to end at column END-COLUMN. |