hellmund/markdown-preview-mode
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix for using cl function

Browse Source 
- Remove 'eval-when-compile'
  Because this package uses cl function
- Use cl-lib function instead of cl.el
  Because loading cl.el at runtime causes byte-compile warning
This commit is contained in:
Syohei YOSHIDA 2016-01-06 14:02:31 +09:00
parent 2caf40f41a
commit 7e5b880305
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
markdown-preview-mode.el
View File

@ -5,7 +5,7 @@
;; Author: Igor Shymko <igor.shimko@gmail.com> ;; Author: Igor Shymko <igor.shimko@gmail.com>
;; URL: https://github.com/ancane/markdown-preview-mode ;; URL: https://github.com/ancane/markdown-preview-mode
;; Keywords: markdown, preview ;; Keywords: markdown, preview
;; Package-Requires: ((websocket "1.3") (markdown-mode "2.0")) ;; Package-Requires: ((websocket "1.3") (markdown-mode "2.0") (cl-lib "0.5"))
;; This file is not part of GNU Emacs. ;; This file is not part of GNU Emacs.
@ -22,8 +22,9 @@
;; You should have received a copy of the GNU General Public License ;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
(eval-when-compile (require 'cl)) ;;; Code:
(require 'cl-lib)
(require 'websocket) (require 'websocket)
(require 'markdown-mode) (require 'markdown-mode)
@ -66,7 +67,7 @@
(defun mdpm:drop-closed-clients () (defun mdpm:drop-closed-clients ()
(setq mdpm:remote-clients (setq mdpm:remote-clients
(remove-if-not #'websocket-openp mdpm:remote-clients))) (cl-remove-if-not #'websocket-openp mdpm:remote-clients)))
(defun mdpm:start-websocket-server () (defun mdpm:start-websocket-server ()
(when (not mdpm:websocket-server) (when (not mdpm:websocket-server)