/[emacs]/emacs/lisp/progmodes/vhdl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/vhdl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by monnier, Sun Apr 10 18:15:43 2005 UTC revision 1.28 by lektu, Mon May 16 11:26:54 2005 UTC
# Line 5082  Return a valid value only." Line 5082  Return a valid value only."
5082                           ((string-equal "++" input) '++)                           ((string-equal "++" input) '++)
5083                           ((string-equal "--" input) '--)                           ((string-equal "--" input) '--)
5084                           ((string-match "^-?[0-9]+$" input)                           ((string-match "^-?[0-9]+$" input)
5085                            (string-to-int input))                            (string-to-number input))
5086                           ((fboundp (setq interned (intern input)))                           ((fboundp (setq interned (intern input)))
5087                            interned)                            interned)
5088                           ((boundp interned) interned)                           ((boundp interned) interned)
# Line 13701  entity ENT-KEY." Line 13701  entity ENT-KEY."
13701        (condition-case ()        (condition-case ()
13702            (progn (load-file file-dir-name)            (progn (load-file file-dir-name)
13703                   (string< (mapconcat                   (string< (mapconcat
13704                             (lambda (a) (format "%3d" (string-to-int a)))                             (lambda (a) (format "%3d" (string-to-number a)))
13705                             (split-string "3.31.14" "\\.") "")                             (split-string "3.31.14" "\\.") "")
13706                            (mapconcat                            (mapconcat
13707                             (lambda (a) (format "%3d" (string-to-int a)))                             (lambda (a) (format "%3d" (string-to-number a)))
13708                             (split-string vhdl-cache-version "\\.") "")))                             (split-string vhdl-cache-version "\\.") "")))
13709          (error (progn (vhdl-warning (format "ERROR:  Corrupted cache file: \"%s\"" file-dir-name))          (error (progn (vhdl-warning (format "ERROR:  Corrupted cache file: \"%s\"" file-dir-name))
13710                        nil))))))                        nil))))))
# Line 14075  otherwise use cached data." Line 14075  otherwise use cached data."
14075                     (beginning-of-line) (looking-at "^\\([0-9]+\\):"))                     (beginning-of-line) (looking-at "^\\([0-9]+\\):"))
14076                   (re-search-backward                   (re-search-backward
14077                    (format "^[0-%d]:\\s-*[[{<]-"                    (format "^[0-%d]:\\s-*[[{<]-"
14078                            (max (1- (string-to-int (match-string 1))) 0)) nil t)))                            (max (1- (string-to-number (match-string 1))) 0)) nil t)))
14079      (goto-char (match-end 0))      (goto-char (match-end 0))
14080      (speedbar-do-function-pointer)      (speedbar-do-function-pointer)
14081      (speedbar-center-buffer-smartly)))      (speedbar-center-buffer-smartly)))

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26