diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-10-20 06:30:18 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-10-20 06:30:18 +0000 |
| commit | 975460179e149d602524496a58ecf4702f12f8ba (patch) | |
| tree | ef9858e76ed34d0d534313f4107ae564aa143bdf /lisp/vmsproc.el | |
| parent | fbd80e28b7dfdd0a59e63b4a742392e0ca9dab88 (diff) | |
| download | emacs-975460179e149d602524496a58ecf4702f12f8ba.tar.gz | |
* term/x-win.el (x-gtk-stock-map, icon-map-list)
(x-gtk-map-stock): Delete duplicated definitions from merge.
* progmodes/octave-mod.el: Require octave-inf at compile time
* progmodes/compile.el (compilation-skip-to-next-location)
(compilation-skip-threshold, compilation-skip-visited): Move
definitions earlier.
* play/zone.el (zone-fall-through-ws):
* play/landmark.el (lm-move-down, lm-move-up):
* play/handwrite.el (handwrite):
* mail/mspools.el (mspools-visit-spool):
* wdired.el (wdired-next-line, wdired-previous-line):
* tar-mode.el (tar-subfile-save-buffer):
* scroll-lock.el (scroll-lock-next-line)
(scroll-lock-previous-line):
* image-dired.el (image-dired-next-line)
(image-dired-previous-line):
* ediff-help.el (ediff-help-message-line-length): Use
forward-line.
* smerge-mode.el (smerge-auto-refine):
* diff-mode.el (diff-auto-refine): Add :group.
* play/yow.el: Require doctor at compile time.
* vmsproc.el: Provide vmsproc.
(command-send-input): Use forward-line.
* vms-patch.el: Require ps-print and vmsproc at compile time.
* vc-mtn.el (log-view-message-re, log-view-file-re)
(log-view-font-lock-keywords): Pacify byte-compiler.
* vc-hg.el: Require log-view at compile time.
Diffstat (limited to 'lisp/vmsproc.el')
| -rw-r--r-- | lisp/vmsproc.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/vmsproc.el b/lisp/vmsproc.el index e36400476f4..92df327dde1 100644 --- a/lisp/vmsproc.el +++ b/lisp/vmsproc.el @@ -122,11 +122,11 @@ line to the last line for resubmission." (send-command-to-subprocess 1 current-line) (if command-prefix-string (progn (beginning-of-line) (insert command-prefix-string))) - (next-line 1)))) + (forward-line 1)))) ;; else -- if not at last line in buffer (goto-char (point-max)) (backward-char) - (next-line 1) + (forward-line 1) (insert (if (compare-strings command-prefix-string nil nil current-line 0 (length command-prefix-string)) @@ -141,5 +141,7 @@ line to the last line for resubmission." (define-key esc-map "$" 'subprocess-command) +(provide 'vmsproc) + ;; arch-tag: 600b2512-f903-4887-bcd2-e76b306f5b66 ;;; vmsproc.el ends here |