diff options
| -rw-r--r-- | lisp/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/help-fns.el | 3 |
2 files changed, 9 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3a68b694a34..84c908e20a2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2007-10-15 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * help-fns.el: Require advice when compiling. | ||
| 4 | |||
| 1 | 2007-10-14 Drew Adams <drew.adams@oracle.com> | 5 | 2007-10-14 Drew Adams <drew.adams@oracle.com> |
| 2 | 6 | ||
| 3 | * emacs-lisp/ring.el (ring-convert-sequence-to-ring) | 7 | * emacs-lisp/ring.el (ring-convert-sequence-to-ring) |
| @@ -99,8 +103,8 @@ | |||
| 99 | 103 | ||
| 100 | 2007-10-13 Dan Nicolaescu <dann@ics.uci.edu> | 104 | 2007-10-13 Dan Nicolaescu <dann@ics.uci.edu> |
| 101 | 105 | ||
| 102 | * frame.el (select-frame-set-input-focus): Fix typo | 106 | * frame.el (select-frame-set-input-focus): Fix typo "max" -> "mac". |
| 103 | "max" -> "mac". Do not use a single clause cond. | 107 | Do not use a single clause cond. |
| 104 | 108 | ||
| 105 | * cus-start.el (all): Use test that does not match the X11 version | 109 | * cus-start.el (all): Use test that does not match the X11 version |
| 106 | for mac. | 110 | for mac. |
| @@ -148,7 +152,7 @@ | |||
| 148 | (idlwave-complete-in-buffer): | 152 | (idlwave-complete-in-buffer): |
| 149 | * textmodes/org.el (org-export-as-html, org-export-as-ascii) | 153 | * textmodes/org.el (org-export-as-html, org-export-as-ascii) |
| 150 | (org-fast-tag-selection): | 154 | (org-fast-tag-selection): |
| 151 | * textmodes/reftex-sel.el (reftex-select-item): Use mapc rather | 155 | * textmodes/reftex-sel.el (reftex-select-item): Use mapc rather |
| 152 | than mapcar. | 156 | than mapcar. |
| 153 | 157 | ||
| 154 | 2007-10-13 Dan Nicolaescu <dann@ics.uci.edu> | 158 | 2007-10-13 Dan Nicolaescu <dann@ics.uci.edu> |
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index bf8d5f9a209..8a3a3903b3a 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -34,6 +34,7 @@ | |||
| 34 | ;;; Code: | 34 | ;;; Code: |
| 35 | 35 | ||
| 36 | (require 'help-mode) | 36 | (require 'help-mode) |
| 37 | (eval-when-compile (require 'advice)) | ||
| 37 | 38 | ||
| 38 | ;; Functions | 39 | ;; Functions |
| 39 | 40 | ||
| @@ -239,7 +240,7 @@ face (according to `face-differs-from-default-p')." | |||
| 239 | ".elc")) | 240 | ".elc")) |
| 240 | load-path)) | 241 | load-path)) |
| 241 | (str (if (and elc-file (file-readable-p elc-file)) | 242 | (str (if (and elc-file (file-readable-p elc-file)) |
| 242 | (with-temp-buffer | 243 | (with-temp-buffer |
| 243 | (insert-file-contents-literally elc-file nil 0 256) | 244 | (insert-file-contents-literally elc-file nil 0 256) |
| 244 | (buffer-string)))) | 245 | (buffer-string)))) |
| 245 | (src-file (and str | 246 | (src-file (and str |