diff options
author | Juanma Barranquero <[email protected]> | 2005-05-16 11:34:49 +0000 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2005-05-16 11:34:49 +0000 |
commit | 027a4b6b3fd229f8aea323f59cb246d99deb8a75 (patch) | |
tree | c92da7d3049376d7bd687db6bc5c8dce82ed9335 /lisp/progmodes/vhdl-mode.el | |
parent | 216d380630ec8be9569a56687f0e08b89ee97c47 (diff) |
Replace `string-to-int' by `string-to-number'.
Diffstat (limited to 'lisp/progmodes/vhdl-mode.el')
-rw-r--r-- | lisp/progmodes/vhdl-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 9f0e63e80a..12f04895f9 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -5082,7 +5082,7 @@ Return a valid value only." ((string-equal "++" input) '++) ((string-equal "--" input) '--) ((string-match "^-?[0-9]+$" input) - (string-to-int input)) + (string-to-number input)) ((fboundp (setq interned (intern input))) interned) ((boundp interned) interned) @@ -13701,10 +13701,10 @@ entity ENT-KEY." (condition-case () (progn (load-file file-dir-name) (string< (mapconcat - (lambda (a) (format "%3d" (string-to-int a))) + (lambda (a) (format "%3d" (string-to-number a))) (split-string "3.31.14" "\\.") "") (mapconcat - (lambda (a) (format "%3d" (string-to-int a))) + (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,7 +14075,7 @@ otherwise use cached data." (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))) + (max (1- (string-to-number (match-string 1))) 0)) nil t))) (goto-char (match-end 0)) (speedbar-do-function-pointer) (speedbar-center-buffer-smartly))) |