diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-07-17 10:56:35 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-07-17 10:56:35 +0000 |
| commit | 1a4d41fae9b3890cfbb66f1bb5393d29dff79b9a (patch) | |
| tree | 3dbbf69ffb93474c0672a20d7e429ae6d1408d75 /lisp | |
| parent | 8c493570987eb732584e7363a67abf128ed73631 (diff) | |
| download | emacs-1a4d41fae9b3890cfbb66f1bb5393d29dff79b9a.tar.gz emacs-1a4d41fae9b3890cfbb66f1bb5393d29dff79b9a.tar.bz2 emacs-1a4d41fae9b3890cfbb66f1bb5393d29dff79b9a.zip | |
(command-line-1): Add support for +LINE:COLUMN
command line argument.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/startup.el | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index da0e718c716..b5b8089dfa9 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1436,7 +1436,8 @@ Type \\[describe-distribution] for information on getting the latest version.")) (mapcar (lambda (elt) (list (concat "-" (car elt)))) command-switch-alist))) - (line 0)) + (line 0) + (column 0)) ;; Add the long X options to longopts. (setq tem command-line-x-option-alist) @@ -1545,6 +1546,10 @@ Type \\[describe-distribution] for information on getting the latest version.")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-int argi))) + ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) + (setq line (string-to-int (match-string 1 argi)) + column (string-to-int (match-string 2 argi)))) + ((setq tem (assoc argi command-line-x-option-alist)) ;; Ignore X-windows options and their args if not using X. (setq command-line-args-left @@ -1568,7 +1573,10 @@ Type \\[describe-distribution] for information on getting the latest version.")) (find-file-other-window file))) (or (zerop line) (goto-line line)) - (setq line 0)) + (setq line 0) + (unless (< column 1) + (move-to-column (1- column))) + (setq column 0)) ((equal argi "--") (setq just-files t)) @@ -1595,7 +1603,10 @@ Type \\[describe-distribution] for information on getting the latest version.")) (find-file-other-window file))) (or (zerop line) (goto-line line)) - (setq line 0)))))))) + (setq line 0) + (unless (< column 1) + (move-to-column (1- column))) + (setq column 0)))))))) ;; If 3 or more files visited, and not all visible, ;; show user what they all are. But leave the last one current. (and (> file-count 2) |