Parent Directory | Revision Log | Patch
revision 1.126 by teirllm, Tue Apr 26 23:16:20 2005 UTC | revision 1.127 by lektu, Mon May 16 11:33:47 2005 UTC | |
---|---|---|
# | Line 759 Environment variables are expanded, see | Line 759 Environment variables are expanded, see |
759 | ;; If STR is of the form +n, for n>0, return n. Otherwise, nil. | ;; If STR is of the form +n, for n>0, return n. Otherwise, nil. |
760 | (defun shell-extract-num (str) | (defun shell-extract-num (str) |
761 | (and (string-match "^\\+[1-9][0-9]*$" str) | (and (string-match "^\\+[1-9][0-9]*$" str) |
762 | (string-to-int str))) | (string-to-number str))) |
763 | ||
764 | ||
765 | (defun shell-dirtrack-mode () | (defun shell-dirtrack-mode () |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |