[Emacs-diffs] trunk r115134: * lisp/emacs-lisp/nadvice.el (remove-function): Align with

[Stefan Monnier]

------------------------------------------------------------
revno: 115134
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2013-11-17 18:11:27 -0500
message:
  * lisp/emacs-lisp/nadvice.el (remove-function): Align with
  add-function's behavior.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/nadvice.el     nadvice.el-20121015213644-851fdxs2vximj8nr-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-17 23:01:23 +0000
+++ b/lisp/ChangeLog    2013-11-17 23:11:27 +0000
@@ -1,5 +1,8 @@
 2013-11-17  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/nadvice.el (remove-function): Align with
+       add-function's behavior.
+
        * progmodes/gdb-mi.el: Avoid backtracking in regexp matcher.
        (gdb--string-regexp): New constant.
        (gdb-tooltip-print, gdb-var-evaluate-expression-handler)

=== modified file 'lisp/emacs-lisp/nadvice.el'
--- a/lisp/emacs-lisp/nadvice.el        2013-08-04 20:18:11 +0000
+++ b/lisp/emacs-lisp/nadvice.el        2013-11-17 23:11:27 +0000
@@ -284,7 +284,7 @@
   (cond ((eq 'local (car-safe place))
          (setq place `(advice--buffer-local ,@(cdr place))))
         ((symbolp place)
-         (error "Use (default-value '%S) or (local '%S)" place place)))
+         (setq place `(default-value ',place))))
   (gv-letplace (getter setter) place
     (macroexp-let2 nil new `(advice--remove-function ,getter ,function)
       `(unless (eq ,new ,getter) ,(funcall setter new)))))