comparison lisp/shell.el @ 62402:a7e02ef1e3d6

Replace `string-to-int' by `string-to-number'.

62401:4512c4db6912

	     (shell-dirstack-message))))))

;; If STR is of the form +n, for n>0, return n. Otherwise, nil.
(defun shell-extract-num (str)
  (and (string-match "^\\+[1-9][0-9]*$" str)
       (string-to-int str)))


(defun shell-dirtrack-mode ()
  "Turn directory tracking on and off in a shell buffer."
  (interactive)

62402:a7e02ef1e3d6

	     (shell-dirstack-message))))))

;; If STR is of the form +n, for n>0, return n. Otherwise, nil.
(defun shell-extract-num (str)
  (and (string-match "^\\+[1-9][0-9]*$" str)
       (string-to-number str)))


(defun shell-dirtrack-mode ()
  "Turn directory tracking on and off in a shell buffer."
  (interactive)