[Emacs-diffs] Changes to emacs/lisp/progmodes/simula.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/simula.el
diff -c emacs/lisp/progmodes/simula.el:1.27 emacs/lisp/progmodes/simula.el:1.28
*** emacs/lisp/progmodes/simula.el:1.27 Sat Aug 24 10:26:06 2002
--- emacs/lisp/progmodes/simula.el      Tue Feb  4 08:24:35 2003
***************
*** 77,83 ****
  will have the car of the list extra indentation with respect to
  the previous line of the statement.")
  
! (defcustom simula-continued-statement-offset 
    simula-continued-statement-offset-default
    "*Extra indentation for lines not starting a statement or substatement.
  If value is a list, each line in a multipleline continued statement
--- 77,83 ----
  will have the car of the list extra indentation with respect to
  the previous line of the statement.")
  
! (defcustom simula-continued-statement-offset
    simula-continued-statement-offset-default
    "*Extra indentation for lines not starting a statement or substatement.
  If value is a list, each line in a multipleline continued statement
***************
*** 201,207 ****
            "spect\\)\\)\\|l\\([et]\\|abel\\)\\|n\\(ew?\\|ot\\)\\|"
            "o\\(r\\|therwise\\)\\|pr\\(ior\\|otected\\)\\|qua\\|"
            "reactivate\\|s\\(tep\\|witch\\)\\|t\\(h\\(en\\|is\\)\\|o\\)\\|"
!           "until\\|virtual\\|wh\\(en\\|ile\\)"            
            "\\)\\>")
      ;;
      ;; Types.
--- 201,207 ----
            "spect\\)\\)\\|l\\([et]\\|abel\\)\\|n\\(ew?\\|ot\\)\\|"
            "o\\(r\\|therwise\\)\\|pr\\(ior\\|otected\\)\\|qua\\|"
            "reactivate\\|s\\(tep\\|witch\\)\\|t\\(h\\(en\\|is\\)\\|o\\)\\|"
!           "until\\|virtual\\|wh\\(en\\|ile\\)"
            "\\)\\>")
      ;;
      ;; Types.
***************
*** 496,502 ****
                  (simula-indent-line))
              (forward-line 1)))
        (and end (set-marker end nil))))))
!       
  
  (defun simula-indent-line ()
    "Indent this line as SIMULA code.
--- 496,502 ----
                  (simula-indent-line))
              (forward-line 1)))
        (and end (set-marker end nil))))))
! 
  
  (defun simula-indent-line ()
    "Indent this line as SIMULA code.
***************
*** 728,734 ****
              (delete-horizontal-space)
              (indent-to amount)))
        (goto-char (- (point-max) origin)))))
!       
  
  (defun simula-backward-up-level (count)
    "Move backward up COUNT block levels.
--- 728,734 ----
              (delete-horizontal-space)
              (indent-to amount)))
        (goto-char (- (point-max) origin)))))
! 
  
  (defun simula-backward-up-level (count)
    "Move backward up COUNT block levels.
***************
*** 797,803 ****
              (goto-char origin)
              (signal 'quit nil))))))
  
!      
  (defun simula-previous-statement (count)
    "Move backward COUNT statements.
  If COUNT is negative, move forward instead."
--- 797,803 ----
              (goto-char origin)
              (signal 'quit nil))))))
  
! 
  (defun simula-previous-statement (count)
    "Move backward COUNT statements.
  If COUNT is negative, move forward instead."
***************
*** 808,814 ****
          (case-fold-search t)
          (origin (point)))
        (condition-case ()
!         ;; 
          (progn
            (simula-skip-comment-backward)
            (if (memq (preceding-char) '(?n ?N))
--- 808,814 ----
          (case-fold-search t)
          (origin (point)))
        (condition-case ()
!         ;;
          (progn
            (simula-skip-comment-backward)
            (if (memq (preceding-char) '(?n ?N))
***************
*** 1104,1110 ****
            ;; (at or before comment or label)
            ;; temp = t means finished
            (setq temp
!                 (and (not (simula-context))                   
                       (save-excursion
                         (skip-chars-forward " \t\f")
                         (or (looking-at "virtual")
--- 1104,1110 ----
            ;; (at or before comment or label)
            ;; temp = t means finished
            (setq temp
!                 (and (not (simula-context))
                       (save-excursion
                         (skip-chars-forward " \t\f")
                         (or (looking-at "virtual")
***************
*** 1443,1449 ****
          nil
        (signal 'search-failed (list regexp))))))
  
!   
  (defun simula-install-standard-abbrevs ()
    "Define Simula keywords, procedures and classes in local abbrev table."
    ;; procedure and class names are as of the SIMULA 87 standard.
--- 1443,1449 ----
          nil
        (signal 'search-failed (list regexp))))))
  
! 
  (defun simula-install-standard-abbrevs ()
    "Define Simula keywords, procedures and classes in local abbrev table."
    ;; procedure and class names are as of the SIMULA 87 standard.