Mercurial > hg > xemacs-beta
comparison lisp/obsolete.el @ 412:697ef44129c6 r21-2-14
Import from CVS: tag r21-2-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:20:41 +0200 |
| parents | 74fd4e045ea6 |
| children | 11054d720c21 |
comparison
equal
deleted
inserted
replaced
| 411:12e008d41344 | 412:697ef44129c6 |
|---|---|
| 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) | |
| 177 | 173 |
| 178 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks | 174 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks |
| 179 | 175 |
| 180 (make-compatible-variable 'lisp-indent-hook 'lisp-indent-function) | 176 (make-compatible-variable 'lisp-indent-hook 'lisp-indent-function) |
| 181 (make-compatible-variable 'comment-indent-hook 'comment-indent-function) | 177 (make-compatible-variable 'comment-indent-hook 'comment-indent-function) |
| 243 (define-obsolete-function-alias 'show-buffer 'set-window-buffer) | 239 (define-obsolete-function-alias 'show-buffer 'set-window-buffer) |
| 244 (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo) | 240 (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo) |
| 245 (make-compatible 'eval-current-buffer 'eval-buffer) | 241 (make-compatible 'eval-current-buffer 'eval-buffer) |
| 246 (define-compatible-function-alias 'byte-code-function-p | 242 (define-compatible-function-alias 'byte-code-function-p |
| 247 'compiled-function-p) ;FSFmacs | 243 '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) | |
| 253 | 244 |
| 254 ;; too bad there's not a way to check for aref, assq, and nconc | 245 ;; too bad there's not a way to check for aref, assq, and nconc |
| 255 ;; being called on the values of functions known to return keymaps, | 246 ;; being called on the values of functions known to return keymaps, |
| 256 ;; or known to return vectors of events instead of strings... | 247 ;; or known to return vectors of events instead of strings... |
| 257 | 248 |
| 351 (while (and (< i len) (< idx string-len)) | 342 (while (and (< i len) (< idx string-len)) |
| 352 (aset string idx (aref str i)) | 343 (aset string idx (aref str i)) |
| 353 (setq idx (1+ idx) i (1+ i))) | 344 (setq idx (1+ idx) i (1+ i))) |
| 354 string)) | 345 string)) |
| 355 | 346 |
| 356 ;; #### This function is not compatible with FSF in some cases. Hard | 347 ;; ### This function is not compatible with FSF in some cases. Hard |
| 357 ;; to fix, because it is hard to trace the logic of the FSF function. | 348 ;; to fix, because it is hard to trace the logic of the FSF function. |
| 358 ;; In case we need the exact behavior, we can always copy the FSF | 349 ;; In case we need the exact behavior, we can always copy the FSF |
| 359 ;; version, which is very long and does lots of unnecessary stuff. | 350 ;; version, which is very long and does lots of unnecessary stuff. |
| 360 (defun truncate-string-to-width (str end-column &optional start-column padding) | 351 (defun truncate-string-to-width (str end-column &optional start-column padding) |
| 361 "Truncate string STR to end at column END-COLUMN. | 352 "Truncate string STR to end at column END-COLUMN. |