;;; mlsupport.el --- run-time support for mocklisp code
-;; Copyright (C) 1985 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
+;; 2006, 2007, 2008 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: extensions
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
(defun ml-message (&rest args) (message "%s" (apply 'concat args)))
-(defun kill-to-end-of-line ()
- (ml-prefix-argument-loop
- (if (eolp)
- (kill-region (point) (1+ (point)))
- (kill-region (point) (if (search-forward ?\n nil t)
- (1- (point)) (point-max))))))
-
(defun set-auto-fill-hook (arg)
(setq auto-fill-function (intern arg)))
(newline (ml-prefix-argument)))
(defun ml-next-line ()
- (next-line (ml-prefix-argument)))
+ (forward-line (ml-prefix-argument)))
(defun ml-previous-line ()
- (previous-line (ml-prefix-argument)))
+ (forward-line (- (ml-prefix-argument))))
(defun delete-to-kill-buffer ()
(kill-region (point) (mark)))
"Mocklisp compatibility variable; 1 means pass -f when calling csh.")
(defun filter-region (command)
- (let ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh"))
- (csh (equal (file-name-nondirectory shell) "csh")))
+ (let* ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh"))
+ (csh (equal (file-name-nondirectory shell) "csh")))
(call-process-region (point) (mark) shell t t nil
(if (and csh use-csh-option-f) "-cf" "-c")
(concat "exec " command))))
(defun execute-monitor-command (command)
- (let ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh"))
- (csh (equal (file-name-nondirectory shell) "csh")))
+ (let* ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh"))
+ (csh (equal (file-name-nondirectory shell) "csh")))
(call-process shell nil t t
(if (and csh use-csh-option-f) "-cf" "-c")
(concat "exec " command))))
(setq count (1+ count)))))
(defun ml-next-page ()
- (previous-page (- (ml-prefix-argument))))
+ (ml-previous-page (- (ml-prefix-argument))))
(defun page-next-window (&optional arg)
(let ((count (or arg (ml-prefix-argument))))
(provide 'mlsupport)
+;;; arch-tag: b0ad09bc-8cb2-4be0-8888-2e874839bcbc
;;; mlsupport.el ends here