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) |
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)))))) |
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))) |