[Emacs-diffs] /srv/bzr/emacs/trunk r109211: * lisp/mouse.el (popup-menu): Fix last change.

[Stefan Monnier]

------------------------------------------------------------
revno: 109211
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-07-25 21:29:24 -0400
message:
  * lisp/mouse.el (popup-menu): Fix last change.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-loaddefs.el
  lisp/mouse.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-07-26 01:27:33 +0000
+++ b/lisp/ChangeLog    2012-07-26 01:29:24 +0000
@@ -1,5 +1,9 @@
 2012-07-26  Stefan Monnier  <address@hidden>
 
+       * mouse.el (popup-menu): Fix last change.
+
+2012-07-26  Stefan Monnier  <address@hidden>
+
        Autoload from Lisp with more care.  Follow aliases when looking for
        function properties.
        * subr.el (autoloadp): New function.
@@ -31,7 +35,6 @@
        * emacs-lisp/byte-opt.el (byte-compile-inline-expand):
        * calc/calc.el (name): Use autoloadp & autoload-do-load.
 
-
 2012-07-25  Alp Aker  <address@hidden>
 
        * international/mule-cmds.el (ucs-insert): Mark it as an obsolete
@@ -88,8 +91,8 @@
 
 2012-07-21  Leo Liu  <address@hidden>
 
-       * progmodes/cc-cmds.el (c-defun-name): Use
-       match-string-no-properties instead for consistency.
+       * progmodes/cc-cmds.el (c-defun-name):
+       Use match-string-no-properties instead for consistency.
 
 2012-07-20  Leo Liu  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/cl-loaddefs.el'
--- a/lisp/emacs-lisp/cl-loaddefs.el    2012-07-17 12:58:25 +0000
+++ b/lisp/emacs-lisp/cl-loaddefs.el    2012-07-26 01:29:24 +0000
@@ -260,7 +260,7 @@
 ;;;;;;  cl-do cl-loop cl-return-from cl-return cl-block cl-etypecase
 ;;;;;;  cl-typecase cl-ecase cl-case cl-load-time-value cl-eval-when
 ;;;;;;  cl-destructuring-bind cl-function cl-defmacro cl-defun cl-gentemp
-;;;;;;  cl-gensym) "cl-macs" "cl-macs.el" "6b06545d8d17e8b902435f08be6ac0c2")
+;;;;;;  cl-gensym) "cl-macs" "cl-macs.el" "db390970b6e9bd057169b197d5189781")
 ;;; Generated autoloads from cl-macs.el
 
 (autoload 'cl-gensym "cl-macs" "\

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2012-07-20 11:32:30 +0000
+++ b/lisp/mouse.el     2012-07-26 01:29:24 +0000
@@ -116,7 +116,7 @@
   (setq position
        (cond
         ((eq position 'point)
-         (let* ((pp (posn-at-point pos window))
+         (let* ((pp (posn-at-point))
                  (xy (posn-x-y pp)))
            (list (list (car xy) (cdr xy)) (posn-window pp))))
         ((not position)