Mercurial > emacs

changeset 24835:9b89e017d20a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vhdl-port-copy): Fix parsing bug. (vhdl-port-paste-generic-map): Fix indentation bug. (vhdl-port-paste-port-map): Fix indentation bug. (vhdl-scan-file-contents): Make scanning case insensitive.
author Karl Heuer <kwzh@gnu.org>
date Sat, 12 Jun 1999 04:33:08 +0000
parents d0ccf995f1ae
children 211f009cf721
files lisp/progmodes/vhdl-mode.el
diffstat 1 files changed, 7 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/vhdl-mode.el	Sat Jun 12 04:07:04 1999 +0000
+++ b/lisp/progmodes/vhdl-mode.el	Sat Jun 12 04:33:08 1999 +0000
@@ -1024,8 +1024,6 @@
 (defcustom vhdl-speedbar-hierarchy-indent 1
   "*Amount of indentation in hierarchy display of subcomponent."
   :type 'integer
-  :set (lambda (variable value)
-         (vhdl-custom-set variable value 'speedbar-refresh))
   :group 'vhdl-menu)
 
 (defcustom vhdl-index-menu nil
@@ -8358,7 +8356,7 @@
 				   (match-string 1))))
 	      (vhdl-forward-syntactic-ws)
 	      (setq end-of-list (vhdl-parse-string ")" t))
-	      (vhdl-parse-string ";\\s-*")
+	      (vhdl-parse-string "\\s-*;\\s-*")
 	      ;; parse inline comment
 	      (unless comment
 		(setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t)
@@ -8406,7 +8404,7 @@
 	      (setq type (substring type 0 (match-end 1)))
 	      (vhdl-forward-syntactic-ws)
 	      (setq end-of-list (vhdl-parse-string ")" t))
-	      (vhdl-parse-string ";\\s-*")
+	      (vhdl-parse-string "\\s-*;\\s-*")
 	      ;; parse inline comment
 	      (unless comment
 		(setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t)
@@ -8565,7 +8563,7 @@
 	    (setq generics-list (cdr generics-list))
 	    (insert (if generics-list ", " ")")))
 	(unless vhdl-argument-list-indent
-	  (insert "\n") (indent-to (+ margin (* 2 vhdl-basic-offset))))
+	  (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
 	(setq list-margin (current-column))
 	(while generics-list
 	  (setq generic (car generics-list))
@@ -8600,7 +8598,7 @@
 	    (setq ports-list (cdr ports-list))
 	    (insert (if ports-list ", " ");")))
 	(unless vhdl-argument-list-indent
-	  (insert "\n") (indent-to (+ margin (* 2 vhdl-basic-offset))))
+	  (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
 	(setq list-margin (current-column))
 	(while ports-list
 	  (setq port (car ports-list))
@@ -9700,6 +9698,7 @@
 		(set-buffer (find-buffer-visiting file-name))
 	      (set-buffer (find-file-noselect file-name nil t))
 	      (setq opened t))
+	    (let ((case-fold-search t))
 	    (modify-syntax-entry ?_ "w" (syntax-table))
 	    ;; scan for entities
 	    (goto-char (point-min))
@@ -9786,7 +9785,7 @@
 	    (setq file-list (cdr file-list))
 	    ;; add design units to variable `vhdl-file-alist'
 	    (aput 'vhdl-file-alist file-name
-		  (list ent-list arch-list conf-list pack-list inst-list))
+		  (list ent-list arch-list conf-list pack-list inst-list)))
 	    ;; close file
 	    (if opened
 		(kill-buffer (current-buffer))
@@ -10023,7 +10022,7 @@
 (if (not (boundp 'speedbar-frame))
     (add-hook 'speedbar-load-hook 'vhdl-speedbar-initialize)
   (vhdl-speedbar-initialize)
-  (speedbar-refresh))
+  (when speedbar-frame (speedbar-refresh)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Display functions