/[emacs]/emacs/lisp/rect.el
ViewVC logotype

Diff of /emacs/lisp/rect.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42 by rost, Tue May 7 19:30:21 2002 UTC revision 1.42.2.1 by miles, Fri Apr 4 06:20:10 2003 UTC
# Line 37  Line 37 
37    
38  ;;;###autoload  ;;;###autoload
39  (defun move-to-column-force (column &optional flag)  (defun move-to-column-force (column &optional flag)
40    "Obsolete.  Use `move-to-column'.    "If COLUMN is within a multi-column character, replace it by spaces and tab.
 If COLUMN is within a multi-column character, replace it by spaces and tab.  
41  As for `move-to-column', passing anything but nil or t in FLAG will move to  As for `move-to-column', passing anything but nil or t in FLAG will move to
42  the desired column only if the line is long enough."  the desired column only if the line is long enough."
43    (move-to-column column (or flag t)))    (move-to-column column (or flag t)))
44  (make-obsolete 'move-to-column-force "move-to-column" "21.2")  
45    ;;;###autoload
46    (make-obsolete 'move-to-column-force 'move-to-column "21.2")
47    
48  ;; not used any more --dv  ;; not used any more --dv
49  ;; extract-rectangle-line stores lines into this list  ;; extract-rectangle-line stores lines into this list
# Line 186  the function is called." Line 187  the function is called."
187          (setq val (concat "        " val)          (setq val (concat "        " val)
188                n (- n 8)))                n (- n 8)))
189        (concat val (aref spaces-strings n)))))        (concat val (aref spaces-strings n)))))
190        
191  ;;;###autoload  ;;;###autoload
192  (defun delete-rectangle (start end &optional fill)  (defun delete-rectangle (start end &optional fill)
193    "Delete (don't save) text in the region-rectangle.    "Delete (don't save) text in the region-rectangle.

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.42.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26