Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
344 (setq idx (1+ idx) i (1+ i))) 344 (setq idx (1+ idx) i (1+ i)))
345 string)) 345 string))
346 346
347 ;; ### This function is not compatible with FSF in some cases. Hard 347 ;; ### 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. 348 ;; to fix, because it is hard to trace the logic of the FSF function.
349 ;; In case we need the exact behaviour, we can always copy the FSF 349 ;; 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. 350 ;; version, which is very long and does lots of unnecessary stuff.
351 (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)
352 "Truncate string STR to end at column END-COLUMN. 352 "Truncate string STR to end at column END-COLUMN.
353 The optional 2nd arg START-COLUMN, if non-nil, specifies 353 The optional 2nd arg START-COLUMN, if non-nil, specifies
354 the starting column; that means to return the characters occupying 354 the starting column; that means to return the characters occupying
375 ;; Keywords already do The Right Thing in XEmacs 375 ;; Keywords already do The Right Thing in XEmacs
376 (make-compatible 'define-widget-keywords "Just use them") 376 (make-compatible 'define-widget-keywords "Just use them")
377 377
378 (make-obsolete 'function-called-at-point 'function-at-point) 378 (make-obsolete 'function-called-at-point 'function-at-point)
379 379
380 (provide 'obsolete)
380 ;;; obsolete.el ends here 381 ;;; obsolete.el ends here