Mercurial > emacs

comparison lisp/emulation/mlsupport.el @ 659:505130d1ddf8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Sat, 30 May 1992 22:12:04 +0000
parents 4cd7543be581
children 4f28bd14272c
comparison
equal deleted inserted replaced
658:7cbd4fcd8b0f 659:505130d1ddf8
1 ;; Run-time support for mocklisp code. 1 ;;; mlsupport.el --- run-time support for mocklisp code.
2
2 ;; Copyright (C) 1985 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985 Free Software Foundation, Inc.
3 4
4 ;; This file is part of GNU Emacs. 5 ;; This file is part of GNU Emacs.
5 6
6 ;; GNU Emacs is free software; you can redistribute it and/or modify 7 ;; GNU Emacs is free software; you can redistribute it and/or modify
402 (if (< to 0) (setq to (+ to length))) 403 (if (< to 0) (setq to (+ to length)))
403 (substring string from (+ from to)))) 404 (substring string from (+ from to))))
404 405
405 (provide 'mlsupport) 406 (provide 'mlsupport)
406 407
408 ;;; mlsupport.el ends here