[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easymenu.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easymenu.el [lexbind] |
Date: |
Thu, 04 Nov 2004 08:32:17 -0500 |
Index: emacs/lisp/emacs-lisp/easymenu.el
diff -c emacs/lisp/emacs-lisp/easymenu.el:1.50.2.5
emacs/lisp/emacs-lisp/easymenu.el:1.50.2.6
*** emacs/lisp/emacs-lisp/easymenu.el:1.50.2.5 Tue Apr 27 14:08:31 2004
--- emacs/lisp/emacs-lisp/easymenu.el Thu Nov 4 13:12:43 2004
***************
*** 42,48 ****
:version "20.3")
(defsubst easy-menu-intern (s)
! (if (stringp s) (intern (downcase s)) s))
;;;###autoload
(put 'easy-menu-define 'lisp-indent-function 'defun)
--- 42,66 ----
:version "20.3")
(defsubst easy-menu-intern (s)
! (if (stringp s)
! (let ((copy (copy-sequence s))
! (pos 0)
! found)
! ;; For each letter that starts a word, flip its case.
! ;; This way, the usual convention for menu strings (capitalized)
! ;; corresponds to the usual convention for menu item event types
! ;; (all lower case). It's a 1-1 mapping so causes no conflicts.
! (while (setq found (string-match "\\<\\sw" copy pos))
! (setq pos (match-end 0))
! (unless (= (upcase (aref copy found))
! (downcase (aref copy found)))
! (aset copy found
! (if (= (upcase (aref copy found))
! (aref copy found))
! (downcase (aref copy found))
! (upcase (aref copy found))))))
! (intern copy))
! s))
;;;###autoload
(put 'easy-menu-define 'lisp-indent-function 'defun)
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easymenu.el [lexbind],
Miles Bader <=