75 lines
2.5 KiB
EmacsLisp
75 lines
2.5 KiB
EmacsLisp
|
;;; ess-compat.el --- simple determination of Emacs and version #.
|
|||
|
|
|
|||
|
|
;; Copyright (C) 2000--2017 A.J. Rossini, Richard M. Heiberger, Martin
|
|||
|
|
;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.
|
|||
|
|
|
|||
|
|
;; Author: A.J. Rossini <rossini@biostat.washington.edu>
|
|||
|
|
;; Created: 07 June 2000
|
|||
|
|
;; Maintainer: ESS-core <ESS-core@r-project.org>
|
|||
|
|
|
|||
|
|
;; Keywords: languages
|
|||
|
|
|
|||
|
|
;; This file is part of ESS
|
|||
|
|
|
|||
|
|
;; This file 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)
|
|||
|
|
;; any later version.
|
|||
|
|
|
|||
|
|
;; This file is distributed in the hope that it will be useful,
|
|||
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|||
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|||
|
|
;; GNU General Public License for more details.
|
|||
|
|
|
|||
|
|
;; A copy of the GNU General Public License is available at
|
|||
|
|
;; http://www.r-project.org/Licenses/
|
|||
|
|
|
|||
|
|
|
|||
|
|
;;; Commentary:
|
|||
|
|
|
|||
|
|
;; This file contains functions for easily determining features of the
|
|||
|
|
;; version of Emacs that we are using.
|
|||
|
|
|
|||
|
|
;;; Code:
|
|||
|
|
|
|||
|
|
(defun ess-sleep ()
|
|||
|
|
;; FIXME: Not a "compatibility" thing any more, so move to ess-utils.el.
|
|||
|
|
"Put emacs to sleep for `ess-sleep-for-shell' seconds (floats work)."
|
|||
|
|
(sleep-for ess-sleep-for-shell))
|
|||
|
|
|
|||
|
|
;; for emacs <= 24.2 :
|
|||
|
|
(unless (fboundp 'defvar-local)
|
|||
|
|
(defmacro defvar-local (var val &optional docstring)
|
|||
|
|
"Define VAR as a buffer-local variable with default value VAL.
|
|||
|
|
Like `defvar' but additionally marks the variable as being automatically
|
|||
|
|
buffer-local wherever it is set."
|
|||
|
|
(declare (debug defvar) (doc-string 3))
|
|||
|
|
;; Can't use backquote here, it's too early in the bootstrap.
|
|||
|
|
(list 'progn (list 'defvar var val docstring)
|
|||
|
|
(list 'make-variable-buffer-local (list 'quote var)))))
|
|||
|
|
|
|||
|
|
(unless (fboundp 'setq-local)
|
|||
|
|
(defmacro setq-local (var val)
|
|||
|
|
"Set variable VAR to value VAL in current buffer."
|
|||
|
|
;; Can't use backquote here, it's too early in the bootstrap.
|
|||
|
|
(list 'set (list 'make-local-variable (list 'quote var)) val)))
|
|||
|
|
|
|||
|
|
(provide 'ess-compat)
|
|||
|
|
|
|||
|
|
; Local variables section
|
|||
|
|
|
|||
|
|
;; This file is automatically placed in Outline minor mode.
|
|||
|
|
;; The file is structured as follows:
|
|||
|
|
;; Chapters: ^L ;
|
|||
|
|
;; Sections: ;;*;;
|
|||
|
|
;; Subsections: ;;;*;;;
|
|||
|
|
;; Components: defuns, defvars, defconsts
|
|||
|
|
;; Random code beginning with a ;;;;* comment
|
|||
|
|
;; Local variables:
|
|||
|
|
;; mode: emacs-lisp
|
|||
|
|
;; mode: outline-minor
|
|||
|
|
;; outline-regexp: "\^L\\|\\`;\\|;;\\*\\|;;;\\*\\|(def[cvu]\\|(setq\\|;;;;\\*"
|
|||
|
|
;; End:
|
|||
|
|
|
|||
|
|
;;; ess-compat.el ends here
|