unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Recent changes to easy-menu.el breaks "printing.el".
@ 2002-05-03 18:39 Kim F. Storm
  2002-05-04  3:36 ` Richard Stallman
  0 siblings, 1 reply; 9+ messages in thread
From: Kim F. Storm @ 2002-05-03 18:39 UTC (permalink / raw)
  Cc: vinicius


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  <storm@cua.dk>

^ permalink raw reply	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2002-05-27 22:57 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2002-05-03 18:39 Recent changes to easy-menu.el breaks "printing.el" Kim F. Storm
2002-05-04  3:36 ` Richard Stallman
2002-05-04 18:49   ` Kim F. Storm
2002-05-04 18:21     ` Eli Zaretskii
2002-05-23 22:35       ` Kim F. Storm
2002-05-24 11:52         ` Eli Zaretskii
2002-05-25 21:19           ` Richard Stallman
2002-05-26 22:15             ` Kim F. Storm
2002-05-27 22:57               ` Richard Stallman

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).