[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc-hooks.el emacs-lisp/lis...
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc-hooks.el emacs-lisp/lis... |
Date: |
Wed, 11 Nov 2009 06:06:48 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 09/11/11 06:06:47
Modified files:
lisp : ChangeLog vc-hooks.el
lisp/emacs-lisp: lisp-mode.el
lisp/international: mule-cmds.el
lisp/net : eudc.el
Log message:
* net/eudc.el (eudc-tools-menu):
* international/mule-cmds.el (set-coding-system-map)
(mule-menu-keymap):
* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map):
* vc-hooks.el (vc-menu-map): Use menu-bar-separator.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16594&r2=1.16595
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hooks.el?cvsroot=emacs&r1=1.287&r2=1.288
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/lisp-mode.el?cvsroot=emacs&r1=1.251&r2=1.252
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&r1=1.379&r2=1.380
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/eudc.el?cvsroot=emacs&r1=1.33&r2=1.34
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16594
retrieving revision 1.16595
diff -u -b -r1.16594 -r1.16595
--- ChangeLog 11 Nov 2009 05:57:51 -0000 1.16594
+++ ChangeLog 11 Nov 2009 06:06:43 -0000 1.16595
@@ -1,6 +1,11 @@
2009-11-11 Dan Nicolaescu <address@hidden>
* subr.el (menu-bar-separator): New defconst.
+ * net/eudc.el (eudc-tools-menu):
+ * international/mule-cmds.el (set-coding-system-map)
+ (mule-menu-keymap):
+ * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map):
+ * vc-hooks.el (vc-menu-map):
* replace.el (occur-mode-map):
* menu-bar.el (menu-bar-file-menu, menu-bar-search-menu)
(menu-bar-edit-menu, menu-bar-goto-menu, menu-bar-edit-menu)
Index: vc-hooks.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.287
retrieving revision 1.288
diff -u -b -r1.287 -r1.288
--- vc-hooks.el 6 Nov 2009 07:50:57 -0000 1.287
+++ vc-hooks.el 11 Nov 2009 06:06:46 -0000 1.288
@@ -967,7 +967,7 @@
(define-key map [vc-create-tag]
`(menu-item ,(purecopy "Create Tag") vc-create-tag
:help ,(purecopy "Create version tag")))
- (define-key map [separator1] '("----"))
+ (define-key map [separator1] menu-bar-separator)
(define-key map [vc-annotate]
`(menu-item ,(purecopy "Annotate") vc-annotate
:help ,(purecopy "Display the edit history of the current
file using colors")))
@@ -992,7 +992,7 @@
(define-key map [vc-print-root-log]
`(menu-item ,(purecopy "Show Top of the Tree History ") vc-print-root-log
:help ,(purecopy "List the change log for the current tree in
a window")))
- (define-key map [separator2] '("----"))
+ (define-key map [separator2] menu-bar-separator)
(define-key map [vc-insert-header]
`(menu-item ,(purecopy "Insert Header") vc-insert-headers
:help ,(purecopy "Insert headers into a file for use with a
version control system.
@@ -1036,7 +1036,7 @@
(if (null ext-binding)
orig-binding
(append orig-binding
- '((ext-menu-separator "---"))
+ '((ext-menu-separator "--"))
ext-binding))))
(defun vc-default-extra-menu (backend)
Index: emacs-lisp/lisp-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/lisp-mode.el,v
retrieving revision 1.251
retrieving revision 1.252
diff -u -b -r1.251 -r1.252
--- emacs-lisp/lisp-mode.el 6 Nov 2009 05:16:29 -0000 1.251
+++ emacs-lisp/lisp-mode.el 11 Nov 2009 06:06:46 -0000 1.252
@@ -301,7 +301,7 @@
(define-key tracing-map [tr-uf]
`(menu-item ,(purecopy "Untrace function...") untrace-function
:help ,(purecopy "Untrace function, and possibly activate all
remaining advice")))
- (define-key tracing-map [tr-sep] '("--"))
+ (define-key tracing-map [tr-sep] menu-bar-separator)
(define-key tracing-map [tr-q]
`(menu-item ,(purecopy "Trace function quietly...")
trace-function-background
:help ,(purecopy "Trace the function with trace output going
quietly to a buffer")))
@@ -316,7 +316,7 @@
`(menu-item ,(purecopy "Remove Instrumentation for Function...")
elp-restore-function
:help ,(purecopy "Restore an instrumented function to its
original definition")))
- (define-key prof-map [sep-rem] '("--"))
+ (define-key prof-map [sep-rem] menu-bar-separator)
(define-key prof-map [prof-resall]
`(menu-item ,(purecopy "Reset Counters for All Functions") elp-reset-all
:help ,(purecopy "Reset the profiling information for all
functions being profiled")))
@@ -349,7 +349,7 @@
`(menu-item ,(purecopy "Instrument Function for Debugging") edebug-defun
:help ,(purecopy "Evaluate the top level form point is in,
stepping through with Edebug")
:keys ,(purecopy "C-u C-M-x")))
- (define-key menu-map [separator-byte] '("--"))
+ (define-key menu-map [separator-byte] menu-bar-separator)
(define-key menu-map [disas]
`(menu-item ,(purecopy "Disassemble byte compiled object...") disassemble
:help ,(purecopy "Print disassembled code for OBJECT in a
buffer")))
@@ -362,7 +362,7 @@
(define-key menu-map [byte-compile]
`(menu-item ,(purecopy "Byte-compile This File") emacs-lisp-byte-compile
:help ,(purecopy "Byte compile the file containing the
current buffer")))
- (define-key menu-map [separator-eval] '("--"))
+ (define-key menu-map [separator-eval] menu-bar-separator)
(define-key menu-map [ielm]
`(menu-item ,(purecopy "Interactive Expression Evaluation") ielm
:help ,(purecopy "Interactively evaluate Emacs Lisp
expressions")))
@@ -376,7 +376,7 @@
(define-key menu-map [eval-sexp]
`(menu-item ,(purecopy "Evaluate Last S-expression") eval-last-sexp
:help ,(purecopy "Evaluate sexp before point; print value in
minibuffer")))
- (define-key menu-map [separator-format] '("--"))
+ (define-key menu-map [separator-format] menu-bar-separator)
(define-key menu-map [comment-region]
`(menu-item ,(purecopy "Comment Out Region") comment-region
:help ,(purecopy "Comment or uncomment each line in the
region")
@@ -385,7 +385,8 @@
`(menu-item ,(purecopy "Indent Region") indent-region
:help ,(purecopy "Indent each nonblank line in the region")
:enable mark-active))
- (define-key menu-map [indent-line] '("Indent Line" . lisp-indent-line))
+ (define-key menu-map [indent-line]
+ `(menu-item ,(purecopy "Indent Line") lisp-indent-line))
map)
"Keymap for Emacs Lisp mode.
All commands in `lisp-mode-shared-map' are inherited by this map.")
Index: international/mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.379
retrieving revision 1.380
diff -u -b -r1.379 -r1.380
--- international/mule-cmds.el 31 Oct 2009 02:38:38 -0000 1.379
+++ international/mule-cmds.el 11 Nov 2009 06:06:47 -0000 1.380
@@ -76,7 +76,7 @@
(define-key-after map [universal-coding-system-argument]
`(menu-item ,(purecopy "For Next Command")
universal-coding-system-argument
:help ,(purecopy "Coding system to be used by next command")))
- (define-key-after map [separator-1] '("--"))
+ (define-key-after map [separator-1] menu-bar-separator)
(define-key-after map [set-buffer-file-coding-system]
`(menu-item ,(purecopy "For Saving This Buffer")
set-buffer-file-coding-system
:help ,(purecopy "How to encode this buffer when saved")))
@@ -88,7 +88,7 @@
(define-key-after map [set-file-name-coding-system]
`(menu-item ,(purecopy "For File Name") set-file-name-coding-system
:help ,(purecopy "How to decode/encode file names")))
- (define-key-after map [separator-2] '("--"))
+ (define-key-after map [separator-2] menu-bar-separator)
(define-key-after map [set-keyboard-coding-system]
`(menu-item ,(purecopy "For Keyboard") set-keyboard-coding-system
@@ -97,7 +97,7 @@
`(menu-item ,(purecopy "For Terminal") set-terminal-coding-system
:enable (null (memq initial-window-system '(x w32 ns)))
:help ,(purecopy "How to encode terminal output")))
- (define-key-after map [separator-3] '("--"))
+ (define-key-after map [separator-3] menu-bar-separator)
(define-key-after map [set-selection-coding-system]
`(menu-item ,(purecopy "For X Selections/Clipboard")
set-selection-coding-system
@@ -118,7 +118,7 @@
(let ((map (make-sparse-keymap "Mule (Multilingual Environment)")))
(define-key-after map [set-language-environment]
`(menu-item ,(purecopy "Set Language Environment")
,setup-language-environment-map))
- (define-key-after map [separator-mule] '("--"))
+ (define-key-after map [separator-mule] menu-bar-separator)
(define-key-after map [toggle-input-method]
`(menu-item ,(purecopy "Toggle Input Method") toggle-input-method))
@@ -126,7 +126,7 @@
`(menu-item ,(purecopy "Select Input Method...") set-input-method))
(define-key-after map [describe-input-method]
`(menu-item ,(purecopy "Describe Input Method") describe-input-method))
- (define-key-after map [separator-input-method] '("--"))
+ (define-key-after map [separator-input-method] menu-bar-separator)
(define-key-after map [set-various-coding-system]
`(menu-item ,(purecopy "Set Coding Systems") ,set-coding-system-map
@@ -136,7 +136,7 @@
:enable (file-readable-p
(expand-file-name "HELLO" data-directory))
:help ,(purecopy "Display file which says HELLO in many languages")))
- (define-key-after map [separator-coding-system] '("--"))
+ (define-key-after map [separator-coding-system] menu-bar-separator)
(define-key-after map [describe-language-environment]
`(menu-item ,(purecopy "Describe Language Environment")
Index: net/eudc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/eudc.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -b -r1.33 -r1.34
--- net/eudc.el 31 Oct 2009 02:38:38 -0000 1.33
+++ net/eudc.el 11 Nov 2009 06:06:47 -0000 1.34
@@ -1246,14 +1246,14 @@
(define-key map [email]
`(menu-item ,(purecopy "Get Email") eudc-get-email
:help ,(purecopy "Get the email field of NAME from the
directory server")))
- (define-key map [separator-eudc-email] '("--"))
+ (define-key map [separator-eudc-email] menu-bar-separator)
(define-key map [expand-inline]
`(menu-item ,(purecopy "Expand Inline Query") eudc-expand-inline
:help ,(purecopy "Query the directory server, and expand
the query string before point")))
(define-key map [query]
`(menu-item ,(purecopy "Query with Form") eudc-query-form
:help ,(purecopy "Display a form to query the directory
server")))
- (define-key map [separator-eudc-query] '("--"))
+ (define-key map [separator-eudc-query] menu-bar-separator)
(define-key map [new]
`(menu-item ,(purecopy "New Server") eudc-set-server
:help ,(purecopy "Set the directory server to SERVER using
PROTOCOL")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog vc-hooks.el emacs-lisp/lis...,
Dan Nicolaescu <=