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)))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
