mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

Sync with upstream vhdl mode v3.38.1.

Browse Source 
* lisp/progmodes/vhdl-mode.el (vhdl-version, vhdl-time-stamp): Update.
(vhdl-mode): No longer set comment-padding.
(vhdl-begin-p): Handle missing space between keyword and parenthesis.
(vhdl-beginning-of-statement-1): Fix indentation for "else generate".
(vhdl-template-else, vhdl-template-elsif): Support generate statement.
(vhdl-re-search-forward, vhdl-re-search-backward): Save match data.
This commit is contained in:
Reto Zimmermann 2016-04-17 16:15:29 -07:00 committed by Glenn Morris
parent b6d2552fe3
commit 2007e32444
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/progmodes/vhdl-mode.el
View File

@ -13,10 +13,10 @@
;; filed in the Emacs bug reporting system against this file, a copy ;; filed in the Emacs bug reporting system against this file, a copy
;; of the bug report be sent to the maintainer's email address. ;; of the bug report be sent to the maintainer's email address.
(defconst vhdl-version "3.37.1" (defconst vhdl-version "3.38.1"
"VHDL Mode version number.") "VHDL Mode version number.")
(defconst vhdl-time-stamp "2015-01-15" (defconst vhdl-time-stamp "2015-03-12"
"VHDL Mode time stamp for last update.") "VHDL Mode time stamp for last update.")
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -4876,8 +4876,6 @@ Key bindings:
(set (make-local-variable 'indent-line-function) 'vhdl-indent-line) (set (make-local-variable 'indent-line-function) 'vhdl-indent-line)
(set (make-local-variable 'comment-start) "--") (set (make-local-variable 'comment-start) "--")
(set (make-local-variable 'comment-end) "") (set (make-local-variable 'comment-end) "")
(when vhdl-emacs-21
(set (make-local-variable 'comment-padding) ""))
(set (make-local-variable 'comment-column) vhdl-inline-comment-column) (set (make-local-variable 'comment-column) vhdl-inline-comment-column)
(set (make-local-variable 'end-comment-column) vhdl-end-comment-column) (set (make-local-variable 'end-comment-column) vhdl-end-comment-column)
(set (make-local-variable 'comment-start-skip) "--+\\s-*") (set (make-local-variable 'comment-start-skip) "--+\\s-*")
@ -6001,6 +5999,7 @@ keyword."
;; following search list so that we don't run into ;; following search list so that we don't run into
;; semicolons in the function interface list. ;; semicolons in the function interface list.
(backward-sexp) (backward-sexp)
(skip-chars-forward "(")
(let (foundp) (let (foundp)
(while (and (not foundp) (while (and (not foundp)
(re-search-backward (re-search-backward
@ -6779,7 +6778,8 @@ statement if already at the beginning of one."
;; start point was not inside leader area ;; start point was not inside leader area
;; set stop point at word after leader ;; set stop point at word after leader
(setq pos (point)))) (setq pos (point))))
(forward-word-strictly 1) (unless (looking-at "\\<else\\s-+generate\\>")
(forward-word-strictly 1))
(vhdl-forward-syntactic-ws here) (vhdl-forward-syntactic-ws here)
(setq pos (point))) (setq pos (point)))
(goto-char pos) (goto-char pos)
@ -9311,9 +9311,11 @@ a configuration declaration if not within a design unit."
(let (margin) (let (margin)
(vhdl-prepare-search-1 (vhdl-prepare-search-1
(vhdl-insert-keyword "ELSE") (vhdl-insert-keyword "ELSE")
(if (and (save-excursion (vhdl-re-search-backward "\\(\\<when\\>\\|;\\)" nil t)) (if (and (save-excursion (vhdl-re-search-backward "\\(\\(\\<when\\>\\)\\|;\\)" nil t))
(equal "WHEN" (upcase (match-string 1)))) (match-string 2))
(insert " ") (insert " ")
(unless (vhdl-sequential-statement-p)
(vhdl-insert-keyword " GENERATE"))
(indent-according-to-mode) (indent-according-to-mode)
(setq margin (current-indentation)) (setq margin (current-indentation))
(insert "\n") (insert "\n")
@ -9325,15 +9327,16 @@ a configuration declaration if not within a design unit."
(let ((start (point)) (let ((start (point))
margin) margin)
(vhdl-insert-keyword "ELSIF ") (vhdl-insert-keyword "ELSIF ")
(when (or (vhdl-sequential-statement-p) (vhdl-standard-p 'ams))
(when vhdl-conditions-in-parenthesis (insert "(")) (when vhdl-conditions-in-parenthesis (insert "("))
(when (vhdl-template-field "condition" nil t start (point)) (when (vhdl-template-field "condition" nil t start (point))
(when vhdl-conditions-in-parenthesis (insert ")")) (when vhdl-conditions-in-parenthesis (insert ")"))
(indent-according-to-mode) (indent-according-to-mode)
(setq margin (current-indentation)) (setq margin (current-indentation))
(vhdl-insert-keyword (vhdl-insert-keyword
(concat " " (if (vhdl-sequential-statement-p) "THEN" "USE") "\n")) (concat " " (cond ((vhdl-sequential-statement-p) "THEN")
(indent-to (+ margin vhdl-basic-offset)))))) ((vhdl-standard-p 'ams) "USE")
(t "GENERATE")) "\n"))
(indent-to (+ margin vhdl-basic-offset)))))
(defun vhdl-template-entity () (defun vhdl-template-entity ()
"Insert an entity." "Insert an entity."
@ -13001,7 +13004,7 @@ File statistics: \"%s\"\n\
(let (pos) (let (pos)
(save-excursion (save-excursion
(while (and (setq pos (re-search-forward regexp bound noerror count)) (while (and (setq pos (re-search-forward regexp bound noerror count))
(vhdl-in-literal)))) (save-match-data (vhdl-in-literal)))))
(when pos (goto-char pos)) (when pos (goto-char pos))
pos)) pos))
@ -13010,7 +13013,7 @@ File statistics: \"%s\"\n\
(let (pos) (let (pos)
(save-excursion (save-excursion
(while (and (setq pos (re-search-backward regexp bound noerror count)) (while (and (setq pos (re-search-backward regexp bound noerror count))
(vhdl-in-literal)))) (save-match-data (vhdl-in-literal)))))
(when pos (goto-char pos)) (when pos (goto-char pos))
pos)) pos))