mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 21:07:54 +00:00
org-compat: Use lexical binding
* lisp/org-compat.el (org-move-to-column): (org-pop-to-buffer-same-window): Silence byte-compiler.
This commit is contained in:
parent
705904552c
commit
bfed384cd8
|
@ -1,4 +1,4 @@
|
|||
;;; org-compat.el --- Compatibility code for Org-mode
|
||||
;;; org-compat.el --- Compatibility Code for Older Emacsen -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2004-2016 Free Software Foundation, Inc.
|
||||
|
||||
|
@ -29,8 +29,7 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl))
|
||||
(require 'cl-lib)
|
||||
(require 'org-macs)
|
||||
|
||||
;; As of Emacs 25.1, `outline-mode' functions are under the 'outline-'
|
||||
|
@ -246,7 +245,7 @@ ignored in this case."
|
|||
(if (consp buffer-invisibility-spec)
|
||||
(member arg buffer-invisibility-spec)))
|
||||
|
||||
(defun org-move-to-column (column &optional force buffer)
|
||||
(defun org-move-to-column (column &optional force _buffer)
|
||||
"Move to column COLUMN.
|
||||
Pass COLUMN and FORCE to `move-to-column'."
|
||||
(let ((buffer-invisibility-spec
|
||||
|
@ -311,7 +310,7 @@ With two arguments, return floor and remainder of their quotient."
|
|||
|
||||
;; `pop-to-buffer-same-window' has been introduced in Emacs 24.1.
|
||||
(defun org-pop-to-buffer-same-window
|
||||
(&optional buffer-or-name norecord label)
|
||||
(&optional buffer-or-name norecord _label)
|
||||
"Pop to buffer specified by BUFFER-OR-NAME in the selected window."
|
||||
(if (fboundp 'pop-to-buffer-same-window)
|
||||
(funcall
|
||||
|
|
Loading…
Reference in a new issue