/[emacs]/emacs/lisp/progmodes/ada-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/ada-mode.el

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

revision 1.44 by monnier, Tue Nov 13 14:22:55 2001 UTC revision 1.45 by rms, Wed Nov 14 03:49:57 2001 UTC
# Line 283  An example is: Line 283  An example is:
283    
284  (defcustom ada-fill-comment-prefix "--  "  (defcustom ada-fill-comment-prefix "--  "
285    "*Text inserted in the first columns when filling a comment paragraph.    "*Text inserted in the first columns when filling a comment paragraph.
286  Note: if you modify this variable, you will have to restart the `ada-mode' to  Note: if you modify this variable, you will have to invoke `ada-mode'
287  reread this variable."  again to take account of the new value."
288    :type 'string :group 'ada)    :type 'string :group 'ada)
289    
290  (defcustom ada-fill-comment-postfix " --"  (defcustom ada-fill-comment-postfix " --"
# Line 4149  The paragraph is indented on the first l Line 4149  The paragraph is indented on the first l
4149      (goto-char opos)      (goto-char opos)
4150    
4151      ;;  Find beginning of paragraph      ;;  Find beginning of paragraph
     (back-to-indentation)  
     (while (and (not (bobp)) (looking-at "--[ \t]*[^ \t\n]"))  
       (forward-line -1)  
       (back-to-indentation))  
   
     ;;  We want one line to above the first one, unless we are at the beginning  
     ;;  of the buffer  
     (unless (bobp)  
       (forward-line 1))  
4152      (beginning-of-line)      (beginning-of-line)
4153        (while (and (not (bobp)) (looking-at "[ \t]*--[ \t]*[^ \t\n]"))
4154          (forward-line -1))
4155        ;;  If we found a paragraph-separating line,
4156        ;;  don't actually include it in the paragraph.
4157        (unless (looking-at "[ \t]*--[ \t]*[^ \t\n]")
4158          (forward-line 1))
4159      (setq from (point-marker))      (setq from (point-marker))
4160    
4161      ;;  Calculate the indentation we will need for the paragraph      ;;  Calculate the indentation we will need for the paragraph

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

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