diff options
| author | Richard M. Stallman | 2002-10-14 01:27:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-10-14 01:27:19 +0000 |
| commit | 1b0d40de85b5af240a3afec74a80397459d747cb (patch) | |
| tree | d880e70119bed95cdedcddeef7368e8eae3899fd | |
| parent | 7f1422bc46763e74285cdb15ba0453b85264e5f6 (diff) | |
| download | emacs-1b0d40de85b5af240a3afec74a80397459d747cb.tar.gz emacs-1b0d40de85b5af240a3afec74a80397459d747cb.zip | |
Comment change.
| -rw-r--r-- | lisp/image-file.el | 4 | ||||
| -rw-r--r-- | lisp/thingatpt.el | 2 |
2 files changed, 1 insertions, 5 deletions
diff --git a/lisp/image-file.el b/lisp/image-file.el index 87fd48a55f2..13a2eeb591e 100644 --- a/lisp/image-file.el +++ b/lisp/image-file.el | |||
| @@ -156,10 +156,6 @@ Optional argument ARGS are the arguments to call FUNCTION with." | |||
| 156 | (apply function args))) | 156 | (apply function args))) |
| 157 | 157 | ||
| 158 | 158 | ||
| 159 | ;;; Note this definition must be at the end of the file, because | ||
| 160 | ;;; `define-minor-mode' actually calls the mode-function if the | ||
| 161 | ;;; associated variable is non-nil, which requires that all needed | ||
| 162 | ;;; functions be already defined. [This is arguably a bug in d-m-m] | ||
| 163 | ;;;###autoload | 159 | ;;;###autoload |
| 164 | (define-minor-mode auto-image-file-mode | 160 | (define-minor-mode auto-image-file-mode |
| 165 | "Toggle visiting of image files as images. | 161 | "Toggle visiting of image files as images. |
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 73f88f4b4a5..47caf02b03a 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el | |||
| @@ -384,7 +384,7 @@ Signal an error if the entire string was not used." | |||
| 384 | (let* ((read-data (read-from-string str)) | 384 | (let* ((read-data (read-from-string str)) |
| 385 | (more-left | 385 | (more-left |
| 386 | (condition-case nil | 386 | (condition-case nil |
| 387 | ;; The call to `ignore' suppresses a warning. | 387 | ;; The call to `ignore' suppresses a compiler warning. |
| 388 | (progn (ignore (read-from-string (substring str (cdr read-data)))) | 388 | (progn (ignore (read-from-string (substring str (cdr read-data)))) |
| 389 | t) | 389 | t) |
| 390 | (end-of-file nil)))) | 390 | (end-of-file nil)))) |