aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog10
-rw-r--r--lisp/help-fns.el3
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 @@
12007-10-15 Juanma Barranquero <lekktu@gmail.com>
2
3 * help-fns.el: Require advice when compiling.
4
12007-10-14 Drew Adams <drew.adams@oracle.com> 52007-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
1002007-10-13 Dan Nicolaescu <dann@ics.uci.edu> 1042007-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
1542007-10-13 Dan Nicolaescu <dann@ics.uci.edu> 1582007-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