blob: 5582b2ab0ea9e3ed9209514c3b586c8af42b4fb2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;; -*- lexical-binding: t; -*-
;; In this test, we try and make sure that inlined functions's code isn't
;; mistakenly re-interpreted in the caller's context: we import an
;; inlinable function from another file where `foo-var' is a normal
;; lexical variable, and then call(inline) it in a function where
;; `foo-var' is a dynamically-scoped variable.
(require 'foo-inlinable
(expand-file-name "foo-inlinable.el"
(file-name-directory
(or byte-compile-current-file load-file-name))))
(defvar foo-var)
(defun foo-fun ()
(+ (foo-inlineable 5) 1))
|
