Mercurial > emacs

comparison lisp/rect.el @ 46054:06ea4b707bb2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(move-to-column-force): Likewise.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 27 Jun 2002 16:09:51 +0000
parents 4f3c96288c84
children 8e08ec435afd
comparison
equal deleted inserted replaced
46053:ef0684c3e07b 46054:06ea4b707bb2
35 35
36 ;;; Code: 36 ;;; Code:
37 37
38 ;;;###autoload 38 ;;;###autoload
39 (defun move-to-column-force (column &optional flag) 39 (defun move-to-column-force (column &optional flag)
40 "Obsolete. Use `move-to-column'. 40 "If COLUMN is within a multi-column character, replace it by spaces and tab.
41 If COLUMN is within a multi-column character, replace it by spaces and tab.
42 As for `move-to-column', passing anything but nil or t in FLAG will move to 41 As for `move-to-column', passing anything but nil or t in FLAG will move to
43 the desired column only if the line is long enough." 42 the desired column only if the line is long enough."
44 (move-to-column column (or flag t))) 43 (move-to-column column (or flag t)))
45 (make-obsolete 'move-to-column-force "move-to-column" "21.2") 44 (make-obsolete 'move-to-column-force 'move-to-column "21.2")
46 45
47 ;; not used any more --dv 46 ;; not used any more --dv
48 ;; extract-rectangle-line stores lines into this list 47 ;; extract-rectangle-line stores lines into this list
49 ;; to accumulate them for extract-rectangle and delete-extract-rectangle. 48 ;; to accumulate them for extract-rectangle and delete-extract-rectangle.
50 (defvar operate-on-rectangle-lines) 49 (defvar operate-on-rectangle-lines)