[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104593: * lisp/abbrev.el (define-abb
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104593: * lisp/abbrev.el (define-abbrev-table): Don't add a table multiple times. |
Date: |
Wed, 15 Jun 2011 14:33:33 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104593
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2011-06-15 14:33:33 -0400
message:
* lisp/abbrev.el (define-abbrev-table): Don't add a table multiple times.
modified:
lisp/ChangeLog
lisp/abbrev.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-06-15 18:24:25 +0000
+++ b/lisp/ChangeLog 2011-06-15 18:33:33 +0000
@@ -1,3 +1,7 @@
+2011-06-15 Stefan Monnier <address@hidden>
+
+ * abbrev.el (define-abbrev-table): Don't add a table multiple times.
+
2011-06-15 Alan Mackenzie <address@hidden>
* progmodes/cc-fonts.el (c-font-lock-declarations): 1: Whilst
@@ -7,7 +11,7 @@
2011-06-15 Lars Magne Ingebrigtsen <address@hidden>
- * subr.el (process-live-p): Renamed from `process-alive-p' for
+ * subr.el (process-live-p): Rename from `process-alive-p' for
consistency with other `-live-p' functions.
2011-06-15 Stefan Monnier <address@hidden>
@@ -75,8 +79,8 @@
(view-return-to-alist-update): Make obsolete.
(view-mode-enter): Rename second argument to QUIT-RESTORE.
Rewrite using quit-restore window parameters.
- (view-mode-exit): Rename second argument to EXIT-ONLY. Rewrite
- using quit-restore-window.
+ (view-mode-exit): Rename second argument to EXIT-ONLY.
+ Rewrite using quit-restore-window.
(View-exit, View-exit-and-edit, View-leave, View-quit)
(View-quit-all, View-kill-and-leave): Call view-mode-exit with
appropriate arguments.
@@ -96,8 +100,8 @@
(display-buffer-in-side-window, normalize-buffer-to-display)
(display-buffer-normalize-specifiers-1)
(display-buffer-normalize-specifiers-2)
- (display-buffer-normalize-specifiers, display-buffer-frame): New
- functions.
+ (display-buffer-normalize-specifiers, display-buffer-frame):
+ New functions.
(display-buffer): Major rewrite.
(display-buffer-other-window, display-buffer-other-frame)
(pop-to-buffer, switch-to-buffer-other-window)
@@ -133,8 +137,8 @@
was inadvertently removed in change from 2011-06-11. Declare as
obsolete.
- * calendar/calendar.el (calendar-generate-window): Use
- window-iso-combined-p instead of combination of one-window-p and
+ * calendar/calendar.el (calendar-generate-window):
+ Use window-iso-combined-p instead of combination of one-window-p and
window-safely-shrinkable-p.
2011-06-12 Glenn Morris <address@hidden>
@@ -179,15 +183,15 @@
(bw-adjust-window): Remove.
(balance-windows-area-adjust): New function with functionality of
bw-adjust-window but using resize-window.
- (set-window-text-height): Rewrite doc-string. Use
- normalize-live-window and resize-window.
- (enlarge-window-horizontally, shrink-window-horizontally): Rename
- argument to DELTA.
+ (set-window-text-height): Rewrite doc-string.
+ Use normalize-live-window and resize-window.
+ (enlarge-window-horizontally, shrink-window-horizontally):
+ Rename argument to DELTA.
(window-buffer-height): New function.
(fit-window-to-buffer, shrink-window-if-larger-than-buffer):
Rewrite using new window resize routines.
- (kill-buffer-and-window, mouse-autoselect-window-select): Use
- ignore-errors instead of condition-case.
+ (kill-buffer-and-window, mouse-autoselect-window-select):
+ Use ignore-errors instead of condition-case.
(quit-window): Call delete-frame instead of delete-windows-on
for the only buffer on frame.
@@ -198,8 +202,8 @@
* files.el (read-buffer-to-switch)
(switch-to-buffer-other-window)
- (switch-to-buffer-other-frame, display-buffer-other-frame): Move
- to window.el.
+ (switch-to-buffer-other-frame, display-buffer-other-frame):
+ Move to window.el.
* simple.el (get-next-valid-buffer, last-buffer, next-buffer)
(previous-buffer): Move to window.el.
@@ -215,8 +219,8 @@
(switch-to-next-buffer): New functions.
(get-next-valid-buffer, last-buffer, next-buffer): Move here
from simple.el. Call switch-to-next-buffer.
- (previous-buffer): Move here from simple.el. Call
- switch-to-prev-buffer.
+ (previous-buffer): Move here from simple.el.
+ Call switch-to-prev-buffer.
(bury-buffer): Move here from buffer.c. Switch to previous
buffer when window cannot be deleted.
(unbury-buffer): Move here from bindings.el.
@@ -225,8 +229,8 @@
(read-buffer-to-switch, switch-to-buffer-other-window)
(switch-to-buffer-other-frame): Move here from files.el.
(normalize-buffer-to-switch-to): New functions.
- (switch-to-buffer): Move here from buffer.c. Use
- read-buffer-to-switch and normalize-buffer-to-switch-to.
+ (switch-to-buffer): Move here from buffer.c.
+ Use read-buffer-to-switch and normalize-buffer-to-switch-to.
2011-06-10 Martin Rudalics <address@hidden>
@@ -241,8 +245,8 @@
(window-split-min-size): New function.
(split-window-keep-point): Mention split-window-above-each-other
instead of split-window-vertically.
- (split-window-above-each-other, split-window-vertically): Rename
- split-window-vertically to split-window-above-each-other and
+ (split-window-above-each-other, split-window-vertically):
+ Rename split-window-vertically to split-window-above-each-other and
provide defalias for old definition.
(split-window-side-by-side, split-window-horizontally): Rename
split-window-horizontally to split-window-side-by-side and provide
@@ -301,10 +305,10 @@
2011-06-08 Martin Rudalics <address@hidden>
- * window.el (one-window-p): Move down in code. Rewrite
- doc-string.
- (window-current-scroll-bars): Rewrite doc-string. Normalize
- live window argument.
+ * window.el (one-window-p): Move down in code.
+ Rewrite doc-string.
+ (window-current-scroll-bars): Rewrite doc-string.
+ Normalize live window argument.
(walk-windows, get-window-with-predicate, count-windows):
Rewrite doc-string. Use window-list-1.
(window-in-direction-2, window-in-direction, get-mru-window):
@@ -343,20 +347,20 @@
(image-transform-properties): Return quickly in the normal case.
(image-animate-loop): Rename from image-animate-max-time.
- * image.el (image-animate-max-time): Moved to image-mode.el.
+ * image.el (image-animate-max-time): Move to image-mode.el.
(create-animated-image): Remove unnecessary function.
(image-animate): Rename from image-animate-start. New arg.
- (image-animate-stop): Removed; just use image-animate-timer.
+ (image-animate-stop): Remove; just use image-animate-timer.
(image-animate-timer): Use car-safe.
(image-animate-timeout): Rename argument.
2011-06-07 Martin Rudalics <address@hidden>
* window.el (get-lru-window, get-largest-window): Move here from
- window.c. Rename first argument to ALL-FRAMES. Rephrase
- doc-strings.
- (get-buffer-window-list): Rewrite using window-list-1. Rephrase
- doc-string.
+ window.c. Rename first argument to ALL-FRAMES.
+ Rephrase doc-strings.
+ (get-buffer-window-list): Rewrite using window-list-1.
+ Rephrase doc-string.
(window-safe-min-height, window-safe-min-width): New constants.
(window-size-ignore, window-min-size, window-min-size-1)
(window-sizable, window-sizable-p, window-size-fixed-1)
@@ -379,8 +383,8 @@
(walk-window-tree-1, walk-window-tree, walk-window-subtree)
(windows-with-parameter, window-with-parameter)
(window-atom-root, make-window-atom, window-atom-check-1)
- (window-atom-check, window-side-check, window-check): New
- functions.
+ (window-atom-check, window-side-check, window-check):
+ New functions.
(ignore-window-parameters, window-sides, window-sides-vertical)
(window-sides-slots): New variables.
(window-size-fixed): Move down in code. Minor doc-string fix.
@@ -418,8 +422,8 @@
2011-06-05 Roland Winkler <address@hidden>
- * textmodes/bibtex.el (bibtex-search-entry-globally): New
- variable.
+ * textmodes/bibtex.el (bibtex-search-entry-globally):
+ New variable.
(bibtex-search-entry): Use it.
2011-06-05 Roland Winkler <address@hidden>
=== modified file 'lisp/abbrev.el'
--- a/lisp/abbrev.el 2011-03-31 04:24:03 +0000
+++ b/lisp/abbrev.el 2011-06-15 18:33:33 +0000
@@ -935,7 +935,8 @@
(unless table
(setq table (make-abbrev-table))
(set tablename table)
- (push tablename abbrev-table-name-list))
+ (unless (memq tablename abbrev-table-name-list)
+ (push tablename abbrev-table-name-list)))
;; We used to just pass them to `make-abbrev-table', but that fails
;; if the table was pre-existing as is the case if it was created by
;; loading the user's abbrev file.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104593: * lisp/abbrev.el (define-abbrev-table): Don't add a table multiple times.,
Stefan Monnier <=