Index: emacs/lisp/server.el
diff -c emacs/lisp/server.el:1.101 emacs/lisp/server.el:1.102
*** emacs/lisp/server.el:1.101 Wed Feb 9 15:50:41 2005
--- emacs/lisp/server.el Mon May 16 11:33:47 2005
***************
*** 325,335 ****
(setq request "")))))
;; ARG is a line number option.
((string-match "\\`\\+[0-9]+\\'" arg)
! (setq lineno (string-to-int (substring arg 1))))
;; ARG is line number:column option.
((string-match "\\`+\\([0-9]+\\):\\([0-9]+\\)\\'" arg)
! (setq lineno (string-to-int (match-string 1 arg))
! columnno (string-to-int (match-string 2 arg))))
(t
;; Undo the quoting that emacsclient does
;; for certain special characters.
--- 325,335 ----
(setq request "")))))
;; ARG is a line number option.
((string-match "\\`\\+[0-9]+\\'" arg)
! (setq lineno (string-to-number (substring arg 1))))
;; ARG is line number:column option.
((string-match "\\`+\\([0-9]+\\):\\([0-9]+\\)\\'" arg)
! (setq lineno (string-to-number (match-string 1 arg))
! columnno (string-to-number (match-string 2 arg))))
(t
;; Undo the quoting that emacsclient does
;; for certain special characters.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
