Permalink
Browse files

autopair-original-binding: always call it with fallback-keys as argument

  • Loading branch information...
1 parent c79de21 commit ddb9a8a9dfc3cdcb75d0735633e1e1de6c91cae7 @joaotavora committed Apr 24, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 autopair.el
View
6 autopair.el
@@ -472,16 +472,16 @@ A list of four elements is returned:
point-before
region-before))))))
-(defun autopair-original-binding ()
+(defun autopair-original-binding (fallback-keys)
(or (key-binding `[,autopair-inserted])
(key-binding (this-single-command-keys))
(key-binding fallback-keys)))
(defun autopair-fallback (&optional fallback-keys)
(let* ((autopair-emulation-alist nil)
(beyond-cua (let ((cua--keymap-alist nil))
- (autopair-original-binding)))
- (beyond-autopair (autopair-original-binding)))
+ (autopair-original-binding fallback-keys)))
+ (beyond-autopair (autopair-original-binding fallback-keys)))
(when autopair-autowrap
(setq autopair-wrap-action (autopair-calculate-wrap-action)))

0 comments on commit ddb9a8a

Please sign in to comment.