EFS 1.14 bug: + framepop 1.12 + emacs 19.28.1 problem

Corny De Souza (corny_de_souza@isoit154.bbn.hp.com)
Mon, 3 Apr 1995 19:27:18 +0200
Messages sorted by: [ date ][ thread ][ subject ][ author ]
Next message: Scott Blachowicz: "Dired 7.7 bug: '^' (dired-up-directory) goes to wrong place"
Previous message: Sandy Rutherford: "Re: EFS 1.14 bug: dired-actual-switches"
Ciao bug team:

I have a problem when I load framepop before efs, namely I get the following
error " Lisp nesting exceeds max-lisp-eval-depth". If I load framepop 
afterwards then it seems to be okay. I've included a backtrace as well.  


What I do

	emacs -q

	M-x load-file RET fred.el RET

	M-x shell-command RET echo fred RET



................................................................................
fred.el
=========
(setq load-path (append (list
                         "/users/isoduser/emacs/lisp19\.28/local"
                         "/users/isoduser/emacs/lisp19\.28/lisp"
                         "/users/isoduser/emacs/lisp19\.28/site/vm/5.72"
                         "/users/isoduser/emacs/lisp19\.28/site/efs/efs-1.14"
                         "/users/isoduser/emacs/lisp19\.28/site")
                        load-path))






;;
;;Load framepop.  does not work with ediff
;;

(setq ad-activate-on-definition t) ; allow forward advice
(require 'advice)


(setq framepop-frame-parameters 
      '((unsplittable . t) ; always include this
        (width . 81) ; this parameter is needed
        (menu-bar-lines . 1)
        (minibuffer . nil)))

(setq framepop-lines 
      '(lambda (buf)
         (if (string= (buffer-name buf) "*Buffer List*")
             nil
           (save-excursion
             (set-buffer buf)
             (if (or 
                  (eq (buffer-size) 0)
                  (string= (buffer-name) "*webster*")
                  (string= (buffer-name) "*grep*")
                  (string= (buffer-name) "*Compile-Log*")
                  (string-match "\\*[Cc]ompilation\\*" (buffer-name)))
                 framepop-max-frame-size
               ;; the extra 2 is for the modeline + menu line
               (+ (count-lines (point-min) (point-max)) 2))))))

(cond (window-system (require 'framepop)))

(framepop-wrap 'webster "*webster*")

(define-key global-map [f1] framepop-map)

;;
;;  efs and dired
;;


(load "efs")




................................................................................


Backtrace
=========


Signalling: (error "Lisp nesting exceeds max-lisp-eval-depth")
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command flag))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command flag)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  default-dir-real-shell-command("echo fred" nil)
  ad-Orig-shell-command("echo fred" nil)
  (setq ad-return-value (ad-Orig-shell-command command insert))
  (let ((framepop-in-wrap t)) (setq ad-return-value (ad-Orig-shell-command command insert)) (let* (... ...) (cond ...)))
  (let (ad-return-value) (let (...) (setq ad-return-value ...) (let* ... ...)) ad-return-value)
  shell-command("echo fred" nil)
* call-interactively(shell-command)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)

................................................................................

Emacs  : GNU Emacs 19.28.1 (hppa1.1-hp-hpux9.05) of Tue Mar 21 1995 on isoit071
Package: efs

current state:
==============
(setq
     efs-19.23-version "1.14/1.9"
     efs-cu-version "1.14/1.11"
     efs-defun-version "1.14/1.3"
     efs-dired-version "1.14/1.30"
     efs-fnh-version "1.14/1.1"
     efs-netrc-version "1.14/1.9"
     efs-ovwrt-version "1.14/1.5"
     efs-report-version "1.14/1.8"
     efs-version "1.14/1.52"
     efs-36-bit-binary-file-name-regexp nil
     efs-anonymous-umask nil
     efs-auto-save 0
     efs-auto-save-remotely nil
     efs-backup-by-copying nil
     efs-binary-file-host-regexp nil
     efs-binary-file-name-regexp "\\.\\([zZ]\\|t?gz\\|lzh\\|arc\\|zip\\|zoo\\|ta[rz]\\|dvi\\|sit\\|ps\\|elc\\|gif\\|Z-part-..\\|tpz\\|exe\\|[jm]pg\\|TZ[a-z]?\\|lib\\)\\(~\\|~[0-9]+~\\)?$\\|\\.\\(ARC\\|ELC\\|TAGS\\|EXE\\|ZIP\\|DVI|ZOO\\|GIF\\|T?GZ\\|[JM]PG\\)\\([.#;][0-9]+\\)?$"
     efs-buffer-name-case nil
     efs-compute-remote-buffer-file-truename nil
     efs-debug-ftp-connection nil
     efs-ding-on-chmod-failure t
     efs-ding-on-umask-failure t
     efs-disable-netrc-security-check nil
     efs-expire-ftp-buffers t
     efs-ftp-buffer-expire-time nil
     efs-ftp-program-args '("-i" "-n" "-g" "-v")
     efs-ftp-prompt-regexp "^\\(ftp\\|Ftp\\|FTP\\)> *"
     efs-gateway-ftp-prompt-regexp "^\\(ftp\\|Ftp\\|FTP\\)> *"
     efs-gateway-hash-mark-size nil
     efs-gateway-incoming-binary-hm-size nil
     efs-generate-anonymous-password t
     efs-hash-mark-size nil
     efs-high-security-hosts nil
     efs-incoming-binary-hm-size nil
     efs-local-apollo-unix nil
     efs-ls-cache-max 5
     efs-make-backup-files '(unix sysV-unix bsd-unix next-unix apollo-unix dumb-unix dumb-apollo-unix super-dumb-unix)
     efs-max-ftp-buffer-size 3000
     efs-maximize-idle nil
     efs-message-interval 0
     efs-nlist-cmd "nlist"
     efs-nslookup-on-connect nil
     efs-nslookup-program "nslookup"
     efs-prompt-for-transfer-type nil
     efs-pty-check-retry-time 5
     efs-pty-check-threshold 1000
     efs-retry-time 5
     efs-root-umask nil
     efs-send-hash t
     efs-short-circuit-to-remote-root nil
     efs-suppress-abort-recursive-edit-and-then nil
     efs-text-file-name-regexp ".*"
     efs-treat-crlf-as-nl nil
     efs-umask nil
     efs-verbose t
     efs-verify-anonymous-modtime nil
     efs-verify-modtime-host-regexp ".*"
     efs-ftp-program-name "ftp"
     efs-ftp-program-args '("-i" "-n" "-g" "-v")
     efs-local-host-regexp ".*"
     efs-ftp-local-host-regexp ".*"
     efs-gateway-host nil
     efs-gateway-type nil
     reporter-version "Your version of reporter is obsolete.  Please upgrade."
     features '(mailalias sendmail efs-report efs-dired dired-fsf dired byte-optimize bytecomp byte-compile view default-dir efs-19\.23 efs-fnh passwd efs-ovwrt efs-cu efs-netrc efs-defun comint ring efs framepop backquote reporter compile advice advice-preload vc-hooks lisp-float-type lisp-mode page select scroll-bar menu-bar faces mouse frame)
     )

-- 
Regards
Corny

____________________________________________________________________
ADDRESS:                       | PHONE  +49-7031-143729
Hewlett Packard GmbH           | FAX    +49-7031-141554
attn: Corny de Souza (SC-OFS)  | TELNET 778-3729
Herrenbergerstr. 120           | HPDESK SOUZA_CORNY_DE/HPGRMY/UM
71034 Boeblingen               | MAIL   cdesouza@hpbbn.bbn.hp.com
Germany                        |
Next message: Scott Blachowicz: "Dired 7.7 bug: '^' (dired-up-directory) goes to wrong place"
Previous message: Sandy Rutherford: "Re: EFS 1.14 bug: dired-actual-switches"