[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/vhdl-mode.el [emacs-unicod
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/vhdl-mode.el [emacs-unicode-2] |
Date: |
Thu, 04 Nov 2004 04:12:45 -0500 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/vhdl-mode.el [emacs-unicode-2],
Miles Bader <=