emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Recent changes to easy-menu.el breaks "printing.el".


From: Kim F. Storm
Subject: Recent changes to easy-menu.el breaks "printing.el".
Date: 03 May 2002 20:39:13 +0200
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.50

I've been using Vinicius Jose Latorre's excellent "printing"
package without a glitch -- until recently.

The printing package does some pretty obscure things to setup
its Printing entry on the Tools menu, and it no longer works
for me.

I traces the problem to a recent change to easy-menu where
strings are now downcased before they are interned.

Since printing.el does not expect this, it fails.

I've fixed it in printing.el with the following small modification.
I'm using version 2.1 which may be out-dated, but I'm unable to find
anything newer.

*** printing.el~        Tue May 23 09:33:13 2000
--- printing.el Fri May  3 12:28:09 2002
***************
*** 2740,2746 ****
  
  (defun pr-menu-get-item (name-list)
    ;; NAME-LIST is a string or a list of strings.
!   (let ((ipath [menu-bar tools Printing])
        (len   (and (listp name-list) (length name-list))))
      (and len
         (cond ((= len 0) (setq name-list "nil"))
--- 2740,2746 ----
  
  (defun pr-menu-get-item (name-list)
    ;; NAME-LIST is a string or a list of strings.
!   (let ((ipath (vector 'menu-bar 'tools (pr-get-symbol "Printing")))
        (len   (and (listp name-list) (length name-list))))
      (and len
         (cond ((= len 0) (setq name-list "nil"))
***************
*** 2767,2772 ****
--- 2767,2775 ----
  
  
  (defun pr-get-symbol (name)
+   ;; Recent versions of easy-menu downcase names before interning them.
+   (if (fboundp 'easy-menu-name-match)
+       (setq name (downcase name)))
    (or (intern-soft name)
        (make-symbol name)))
  

-- 
Kim F. Storm  <address@hidden>





reply via email to

[Prev in Thread] Current Thread [Next in Thread]