andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(top-level): Don't require dired when compiling.

Browse source 
(comint-last-output-start, comint-last-input-start)
(comint-last-input-end): Don't defvar when compiling.
(ange-ftp-process-file): Use bound-and-true-p.
This commit is contained in:
Glenn Morris 2009-10-31 02:19:41 +00:00
parent 4c814fd27c
commit 5cf3709cc6
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,5 +1,10 @@
2009-10-31 Glenn Morris <rgm@gnu.org>
* net/ange-ftp.el (top-level): Don't require dired when compiling.
(comint-last-output-start, comint-last-input-start)
(comint-last-input-end): Don't defvar when compiling.
(ange-ftp-process-file): Use bound-and-true-p.
* pcmpl-rpm.el (top-level): Move provide statement to end.
(pcmpl-rpm): Remove unused custom group.

9
lisp/net/ange-ftp.el
View file

@ -667,12 +667,6 @@
;;; Code:
(require 'comint)
;; Silence compiler:
(eval-when-compile
(require 'dired)
(defvar comint-last-output-start nil)
(defvar comint-last-input-start nil)
(defvar comint-last-input-end nil))
;;;; ------------------------------------------------------------
;;;; User customization variables.
@ -4580,7 +4574,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
;; Can't use ange-ftp-dired-host-type here because the current
;; buffer is *dired-check-process output*
(condition-case oops
(cond ((equal dired-chmod-program program)
(cond ((equal (or (bound-and-true-p dired-chmod-program) "chmod")
program)
(ange-ftp-call-chmod arguments))
;; ((equal "chgrp" program))
;; ((equal dired-chown-program program))