mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

Fix `emacsclient +12 file' behaviour. (Reported by Han Boetes.)

Browse Source 
* lisp/server.el (server-process-filter): In `-position LINE' handler,
  don't ruin the request string until the line number is extracted.  Log
  opened files.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-408
This commit is contained in:
Karoly Lorentey 2005-09-11 02:39:03 +00:00
parent 92071250fa
commit 80a426c230
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/server.el
View File

@ -687,8 +687,8 @@ The following commands are accepted by the client:
;; -position LINE: Go to the given line in the next file.
((and (equal "-position" arg) (string-match "\\(\\+[0-9]+\\) " request))
(setq request (substring request (match-end 0))
lineno (string-to-number (substring (match-string 1 request) 1))))
(setq lineno (string-to-number (substring (match-string 1 request) 1))
request (substring request (match-end 0))))
;; -position LINE:COLUMN: Set point to the given position in the next file.
((and (equal "-position" arg) (string-match "\\+\\([0-9]+\\):\\([0-9]+\\) " request))
@ -703,7 +703,8 @@ The following commands are accepted by the client:
(if coding-system
(setq file (decode-coding-string file coding-system)))
(setq file (command-line-normalize-file-name file))
(push (list file lineno columnno) files))
(push (list file lineno columnno) files)
(server-log (format "New file: %s (%d:%d)" file lineno columnno) proc))
(setq lineno 1
columnno 0))