1835 |
(setq blobbet (file-name-nondirectory blobby)) |
(setq blobbet (file-name-nondirectory blobby)) |
1836 |
(if (string-match "^[0-9][0-9][0-9]-" blobbet) |
(if (string-match "^[0-9][0-9][0-9]-" blobbet) |
1837 |
(let ((water-mark)) |
(let ((water-mark)) |
1838 |
(setq water-mark (string-to-int (substring blobbet 0 3))) |
(setq water-mark (string-to-number (substring blobbet 0 3))) |
1839 |
(if (> water-mark high-water) (setq high-water water-mark)))) |
(if (> water-mark high-water) (setq high-water water-mark)))) |
1840 |
(setq q-cnt (1+ q-cnt))) |
(setq q-cnt (1+ q-cnt))) |
1841 |
(t (setq q-oth (1+ q-oth))) |
(t (setq q-oth (1+ q-oth))) |