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

[Juanma Barranquero]

Index: emacs/lisp/progmodes/vhdl-mode.el
diff -c emacs/lisp/progmodes/vhdl-mode.el:1.27 
emacs/lisp/progmodes/vhdl-mode.el:1.28
*** emacs/lisp/progmodes/vhdl-mode.el:1.27      Sun Apr 10 18:15:43 2005
--- emacs/lisp/progmodes/vhdl-mode.el   Mon May 16 11:26:54 2005
***************
*** 5082,5088 ****
                         ((string-equal "++" input) '++)
                         ((string-equal "--" input) '--)
                         ((string-match "^-?[0-9]+$" input)
!                         (string-to-int input))
                         ((fboundp (setq interned (intern input)))
                          interned)
                         ((boundp interned) interned)
--- 5082,5088 ----
                         ((string-equal "++" input) '++)
                         ((string-equal "--" input) '--)
                         ((string-match "^-?[0-9]+$" input)
!                         (string-to-number input))
                         ((fboundp (setq interned (intern input)))
                          interned)
                         ((boundp interned) interned)
***************
*** 13701,13710 ****
        (condition-case ()
          (progn (load-file file-dir-name)
                 (string< (mapconcat
!                          (lambda (a) (format "%3d" (string-to-int a)))
                           (split-string "3.31.14" "\\.") "")
                          (mapconcat
!                          (lambda (a) (format "%3d" (string-to-int a)))
                           (split-string vhdl-cache-version "\\.") "")))
        (error (progn (vhdl-warning (format "ERROR:  Corrupted cache file: 
\"%s\"" file-dir-name))
                      nil))))))
--- 13701,13710 ----
        (condition-case ()
          (progn (load-file file-dir-name)
                 (string< (mapconcat
!                          (lambda (a) (format "%3d" (string-to-number a)))
                           (split-string "3.31.14" "\\.") "")
                          (mapconcat
!                          (lambda (a) (format "%3d" (string-to-number a)))
                           (split-string vhdl-cache-version "\\.") "")))
        (error (progn (vhdl-warning (format "ERROR:  Corrupted cache file: 
\"%s\"" file-dir-name))
                      nil))))))
***************
*** 14075,14081 ****
                   (beginning-of-line) (looking-at "^\\([0-9]+\\):"))
                 (re-search-backward
                  (format "^[0-%d]:\\s-*[[{<]-"
!                         (max (1- (string-to-int (match-string 1))) 0)) nil 
t)))
      (goto-char (match-end 0))
      (speedbar-do-function-pointer)
      (speedbar-center-buffer-smartly)))
--- 14075,14081 ----
                   (beginning-of-line) (looking-at "^\\([0-9]+\\):"))
                 (re-search-backward
                  (format "^[0-%d]:\\s-*[[{<]-"
!                         (max (1- (string-to-number (match-string 1))) 0)) nil 
t)))
      (goto-char (match-end 0))
      (speedbar-do-function-pointer)
      (speedbar-center-buffer-smartly)))