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

Diff of /emacs/lisp/indent.el

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

revision 1.51.2.5 by miles, Wed Oct 6 05:23:54 2004 UTC revision 1.51.2.6 by miles, Mon Oct 25 04:22:23 2004 UTC
# Line 205  If `auto-fill-mode' is active, re-fill t Line 205  If `auto-fill-mode' is active, re-fill t
205  Interactively, WIDTH is the prefix argument, if specified.  Interactively, WIDTH is the prefix argument, if specified.
206  Without prefix argument, the command prompts for WIDTH."  Without prefix argument, the command prompts for WIDTH."
207    (interactive "r\nNSet left margin to column: ")    (interactive "r\nNSet left margin to column: ")
   (if (interactive-p) (setq width (prefix-numeric-value width)))  
208    (save-excursion    (save-excursion
209      ;; If inside indentation, start from BOL.      ;; If inside indentation, start from BOL.
210      (goto-char from)      (goto-char from)
# Line 229  If `auto-fill-mode' is active, re-fill t Line 228  If `auto-fill-mode' is active, re-fill t
228  Interactively, WIDTH is the prefix argument, if specified.  Interactively, WIDTH is the prefix argument, if specified.
229  Without prefix argument, the command prompts for WIDTH."  Without prefix argument, the command prompts for WIDTH."
230    (interactive "r\nNSet right margin to width: ")    (interactive "r\nNSet right margin to width: ")
   (if (interactive-p) (setq width (prefix-numeric-value width)))  
231    (save-excursion    (save-excursion
232      (goto-char from)      (goto-char from)
233      (skip-chars-backward " \t")      (skip-chars-backward " \t")
# Line 289  to change the margin by, in characters. Line 287  to change the margin by, in characters.
287  the right margin width.  the right margin width.
288  If `auto-fill-mode' is active, re-fill the region to fit the new margin."  If `auto-fill-mode' is active, re-fill the region to fit the new margin."
289    (interactive "r\nP")    (interactive "r\nP")
290    (if (interactive-p)    (setq inc (if inc (prefix-numeric-value inc) standard-indent))
       (setq inc (if inc (prefix-numeric-value current-prefix-arg)  
                   standard-indent)))  
291    (save-excursion    (save-excursion
292      (alter-text-property from to 'right-margin      (alter-text-property from to 'right-margin
293         (lambda (v) (+ inc (or v 0))))                           (lambda (v) (+ inc (or v 0))))
294      (if auto-fill-function      (if auto-fill-function
295          (fill-region from to nil t t))))          (fill-region from to nil t t))))
296    

Legend:
Removed from v.1.51.2.5  
changed lines
  Added in v.1.51.2.6

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