[Emacs-diffs] Changes to emacs/lisp/progmodes/vhdl-mode.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/01/29 16:56:46

Index: vhdl-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/vhdl-mode.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- vhdl-mode.el        21 Jan 2007 03:20:44 -0000      1.58
+++ vhdl-mode.el        29 Jan 2007 16:56:46 -0000      1.59
@@ -1147,7 +1147,7 @@
   (concat
    "*Specifies how the name for the components package is obtained.
 The components package is a package containing all component declarations for
-the current design.  It's name can be obtained by modifying the project name
+the current design.  Its name can be obtained by modifying the project name
 \(e.g. attaching or stripping off a substring).  If no project is defined, the
 DIRECTORY entry is chosen."
    vhdl-name-doc-string)
@@ -2434,7 +2434,7 @@
     (insert-file-contents filename t)))
 
 (defun vhdl-sort-alist (alist)
-  "Sort alist."
+  "Sort ALIST."
   (sort alist (function (lambda (a b) (string< (car a) (car b))))))
 
 (defun vhdl-get-subdirs (directory)
@@ -5239,7 +5239,7 @@
 (defun vhdl-set-offset (symbol offset &optional add-p)
   "Change the value of a syntactic element symbol in `vhdl-offsets-alist'.
 SYMBOL is the syntactic element symbol to change and OFFSET is the new
-offset for that syntactic element.  Optional ADD says to add SYMBOL to
+offset for that syntactic element.  Optional ADD-P says to add SYMBOL to
 `vhdl-offsets-alist' if it doesn't already appear there."
   (interactive
    (let* ((langelem
@@ -6424,8 +6424,8 @@
 ;; Defuns for calculating the current syntactic state:
 
 (defun vhdl-get-library-unit (bod placeholder)
-  "If there is an enclosing library unit at bod, with it's \"begin\"
-keyword at placeholder, then return the library unit type."
+  "If there is an enclosing library unit at BOD, with its \"begin\"
+keyword at PLACEHOLDER, then return the library unit type."
   (let ((here (vhdl-point 'bol)))
     (if (save-excursion
          (goto-char placeholder)
@@ -6448,7 +6448,7 @@
 
 (defun vhdl-get-block-state (&optional lim)
   "Finds and records all the closest opens.
-lim is the furthest back we need to search (it should be the
+LIM is the furthest back we need to search (it should be the
 previous libunit keyword)."
   (let ((here (point))
        (lim (or lim (point-min)))
@@ -6514,8 +6514,8 @@
 
 (defun vhdl-skip-case-alternative (&optional lim)
   "Skip forward over case/when bodies, with optional maximal
-limit. If no next case alternative is found, nil is returned and point
-is not moved."
+limit.  If no next case alternative is found, nil is returned and
+point is not moved."
   (let ((lim (or lim (point-max)))
        (here (point))
        donep foundp)
@@ -7306,7 +7306,7 @@
 
 (defun vhdl-align-region-2 (begin end match &optional substr spacing)
   "Align a range of lines from BEGIN to END.  The regular expression
-MATCH must match exactly one fields: the whitespace to be
+MATCH must match exactly one field: the whitespace to be
 contracted/expanded.  The alignment column will equal the
 rightmost column of the widest whitespace block. SPACING is
 the amount of extra spaces to add to the calculated maximum required.
@@ -8101,7 +8101,7 @@
 
 (defun vhdl-electric-dash (count)
   "-- starts a comment, --- draws a horizontal line,
----- starts a display comment"
+---- starts a display comment."
   (interactive "p")
   (if (and vhdl-stutter-mode (not (vhdl-in-literal)))
       (cond
@@ -10448,7 +10448,7 @@
   (if vhdl-upper-case-keywords (upcase keyword) (downcase keyword)))
 
 (defun vhdl-case-word (num)
-  "Adjust case or following NUM words."
+  "Adjust case of following NUM words."
   (if vhdl-upper-case-keywords (upcase-word num) (downcase-word num)))
 
 (defun vhdl-minibuffer-tab (&optional prefix-arg)
@@ -10586,7 +10586,7 @@
 
 (defun vhdl-hooked-abbrev (func)
   "Do function, if syntax says abbrev is a keyword, invoked by hooked abbrev,
-but not if inside a comment or quote)."
+but not if inside a comment or quote."
   (if (or (vhdl-in-literal)
          (save-excursion
            (forward-word -1)
@@ -12083,8 +12083,8 @@
 ;;  Case fixing
 
 (defun vhdl-fix-case-region-1 (beg end upper-case word-regexp &optional count)
-  "Convert all words matching word-regexp in region to lower or upper case,
-depending on parameter upper-case."
+  "Convert all words matching WORD-REGEXP in region to lower or upper case,
+depending on parameter UPPER-CASE."
   (let ((case-replace nil)
        (last-update 0))
     (vhdl-prepare-search-2
@@ -13130,7 +13130,7 @@
 
 (defun vhdl-scan-directory-contents (name &optional project update num-string
                                          non-final)
-  "Scan contents of VHDL files in directory or file pattern DIR-NAME."
+  "Scan contents of VHDL files in directory or file pattern NAME."
   (string-match "\\(.*[/\\]\\)\\(.*\\)" name)
 ;   (unless (file-directory-p (match-string 1 name))
 ;     (message "No such directory: \"%s\"" (match-string 1 name)))
@@ -14172,7 +14172,7 @@
   )
 
 (defun vhdl-speedbar-insert-project-hierarchy (project indent &optional rescan)
-  "Insert hierarchy of project.  Rescan directories if RESCAN is non-nil,
+  "Insert hierarchy of PROJECT.  Rescan directories if RESCAN is non-nil,
 otherwise use cached data."
   (when (or rescan (and (not (assoc project vhdl-file-alist))
                        (not (vhdl-load-cache project))))