Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add directories to `load-path' on byte-compilation on Emacs21.

* twittering-mode.el: Add some directories for Emacs21 to
`load-path' even when byte-compiling the file on Emacs21.
  • Loading branch information...
commit 6084e33adbe81447bce767182dffb57eb7670366 1 parent 63dd103
@cvmat cvmat authored
Showing with 14 additions and 10 deletions.
  1. +3 −0  ChangeLog
  2. +11 −10 twittering-mode.el
View
3  ChangeLog
@@ -7,6 +7,9 @@
(twittering-start-http-session-curl-https-p): likewise.
(twittering-initialize-global-variables-if-necessary): likewise.
+ * twittering-mode.el: Add some directories for Emacs21 to
+ `load-path' even when byte-compiling the file on Emacs21.
+
2011-04-23 Tadashi MATSUO <tad@mymail.twin.jp>
* NEWS, NEWS.ja, LAST-VERSION, VERSION, doc/web/index.text:
View
21 twittering-mode.el
@@ -47,16 +47,17 @@
(require 'xml)
(require 'parse-time)
(when (> 22 emacs-major-version)
- (setq load-path
- (append (mapcar (lambda (dir)
- (expand-file-name
- dir
- (if load-file-name
- (or (file-name-directory load-file-name)
- ".")
- ".")))
- '("url-emacs21" "emacs21"))
- load-path))
+ (eval-and-compile
+ (setq load-path
+ (append (mapcar (lambda (dir)
+ (expand-file-name
+ dir
+ (if load-file-name
+ (or (file-name-directory load-file-name)
+ ".")
+ ".")))
+ '("url-emacs21" "emacs21"))
+ load-path)))
(and (require 'un-define nil t)
;; the explicitly require 'unicode to update a workaround with
;; navi2ch. see a comment of `twittering-ucs-to-char' for more
Please sign in to comment.
Something went wrong with that request. Please try again.