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

[Eli Zaretskii]

Index: emacs/lisp/progmodes/pascal.el
diff -c emacs/lisp/progmodes/pascal.el:1.36 emacs/lisp/progmodes/pascal.el:1.37
*** emacs/lisp/progmodes/pascal.el:1.36 Thu Feb 17 11:03:59 2000
--- emacs/lisp/progmodes/pascal.el      Thu May 18 14:38:09 2000
***************
*** 1,8 ****
  ;;; pascal.el --- major mode for editing pascal source in Emacs
  
! ;; Copyright (C) 1993, 94, 95, 96, 97, 98, 1999 Free Software Foundation, Inc.
  
! ;; Author: Espen Skoglund <address@hidden>
  ;; Keywords: languages
  
  ;; This file is part of GNU Emacs.
--- 1,8 ----
  ;;; pascal.el --- major mode for editing pascal source in Emacs
  
! ;; Copyright (C) 1993, 94, 95, 96, 97, 98, 1999, 2000 Free Software 
Foundation, Inc.
  
! ;; Author: Espen Skoglund <address@hidden>
  ;; Keywords: languages
  
  ;; This file is part of GNU Emacs.
***************
*** 55,62 ****
  ;; As far as I know, there are no bugs in the current version of this
  ;; package.  This may not be true however, since I never use this mode
  ;; myself and therefore would never notice them anyway.   If you do
! ;; find any bugs, you may submit them to: address@hidden
! ;; as well as to address@hidden
  
  ;;; Code:
  
--- 55,62 ----
  ;; As far as I know, there are no bugs in the current version of this
  ;; package.  This may not be true however, since I never use this mode
  ;; myself and therefore would never notice them anyway.   If you do
! ;; find any bugs, you may submit them to: address@hidden as well as to
! ;; address@hidden
  
  ;;; Code:
  
***************
*** 784,790 ****
      (caseblock . ind) (cpp . 0)
      (declaration . (+ ind pascal-indent-level))
      (paramlist . (pascal-indent-paramlist t))
!     (comment . (pascal-indent-comment t))
      (defun . ind) (contexp . ind)
      (unknown . ind) (string . 0) (progbeg . 0)))
  
--- 784,790 ----
      (caseblock . ind) (cpp . 0)
      (declaration . (+ ind pascal-indent-level))
      (paramlist . (pascal-indent-paramlist t))
!     (comment . (pascal-indent-comment))
      (defun . ind) (contexp . ind)
      (unknown . ind) (string . 0) (progbeg . 0)))
  
***************
*** 955,970 ****
      (skip-chars-forward " \t")
      (current-column)))
  
! (defun pascal-indent-comment (&optional arg)
!   "Indent current line as comment.
! If optional arg is non-nil, just return the
! column number the line should be indented to."
!   (let* ((stcol (save-excursion
!                 (re-search-backward "(\\*\\|{" nil t)
!                 (1+ (current-column)))))
!     (if arg stcol
!       (delete-horizontal-space)
!       (indent-to stcol))))
  
  (defun pascal-indent-case ()
    "Indent within case statements."
--- 955,967 ----
      (skip-chars-forward " \t")
      (current-column)))
  
! (defun pascal-indent-comment ()
!   "Return indent for current comment."
!   (save-excursion
!     (re-search-backward "\\((\\*\\)\\|{" nil t)
!     (if (match-beginning 1)
!       (1+ (current-column))
!       (current-column))))
  
  (defun pascal-indent-case ()
    "Indent within case statements."