[Emacs-diffs] Changes to emacs/lisp/progmodes/vhdl-mode.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/progmodes/vhdl-mode.el
diff -c emacs/lisp/progmodes/vhdl-mode.el:1.20.4.1 
emacs/lisp/progmodes/vhdl-mode.el:1.20.4.2
*** emacs/lisp/progmodes/vhdl-mode.el:1.20.4.1  Fri Apr 16 12:50:36 2004
--- emacs/lisp/progmodes/vhdl-mode.el   Thu Nov  4 08:55:37 2004
***************
*** 6120,6136 ****
      (vhdl-keep-region-active)
      foundp))
  
! (defun vhdl-beginning-of-statement (&optional count lim)
    "Go to the beginning of the innermost VHDL statement.
  With prefix arg, go back N - 1 statements.  If already at the
  beginning of a statement then go to the beginning of the preceding
  one.  If within a string or comment, or next to a comment (only
  whitespace between), move by sentences instead of statements.
  
! When called from a program, this function takes 2 optional args: the
  prefix arg, and a buffer position limit which is the farthest back to
! search."
!   (interactive "p")
    (let ((count (or count 1))
        (case-fold-search t)
        (lim (or lim (point-min)))
--- 6120,6136 ----
      (vhdl-keep-region-active)
      foundp))
  
! (defun vhdl-beginning-of-statement (&optional count lim interactive)
    "Go to the beginning of the innermost VHDL statement.
  With prefix arg, go back N - 1 statements.  If already at the
  beginning of a statement then go to the beginning of the preceding
  one.  If within a string or comment, or next to a comment (only
  whitespace between), move by sentences instead of statements.
  
! When called from a program, this function takes 3 optional args: the
  prefix arg, and a buffer position limit which is the farthest back to
! search, and something whose meaning I don't understand."
!   (interactive "p\np")
    (let ((count (or count 1))
        (case-fold-search t)
        (lim (or lim (point-min)))
***************
*** 6139,6145 ****
      (save-excursion
        (goto-char lim)
        (setq state (parse-partial-sexp (point) here nil nil)))
!     (if (and (interactive-p)
             (or (nth 3 state)
                 (nth 4 state)
                 (looking-at (concat "[ \t]*" comment-start-skip))))
--- 6139,6145 ----
      (save-excursion
        (goto-char lim)
        (setq state (parse-partial-sexp (point) here nil nil)))
!     (if (and interactive
             (or (nth 3 state)
                 (nth 4 state)
                 (looking-at (concat "[ \t]*" comment-start-skip))))
***************
*** 7531,7540 ****
  
  (defun vhdl-fill-region (beg end &optional arg)
    "Fill lines for a region of code."
!   (interactive "r")
    (save-excursion
      (goto-char beg)
!     (let ((margin (if (interactive-p) (current-indentation) 
(current-column))))
        (goto-char end)
        (setq end (point-marker))
        ;; remove inline comments, newlines and whitespace
--- 7531,7540 ----
  
  (defun vhdl-fill-region (beg end &optional arg)
    "Fill lines for a region of code."
!   (interactive "r\np")
    (save-excursion
      (goto-char beg)
!     (let ((margin (if interactive (current-indentation) (current-column))))
        (goto-char end)
        (setq end (point-marker))
        ;; remove inline comments, newlines and whitespace