Changeset 18864 for lang/elisp

Timestamp:

09/05/08 01:07:15 (4 months ago)

Author:

imakado

Message:

advice部分が最新版のanythingでエラーになっていたので修正

Files:

• lang/elisp/anything-c-dabbrev/anything-c-dabbrev.el (modified) (2 diffs)

lang/elisp/anything-c-dabbrev/anything-c-dabbrev.el

@@ -37 +37 @@
 (defvar anything-c-dabbrev-initial-input "")
 (defvar anything-c-dabbrev-invoking-flag nil "anything-c-dabbrev が起動中はnon-nilになる")
-(defvar anything-c-dabbrev-anything-saved-action nil)
 (defvar anything-c-dabbrev-get-extra-candidates-functions nil "list of function")
 (defvar anything-c-dabbrev-enable-extra-candidates-flag nil)
@@ -43 +42 @@
 (defadvice anything (after cleanup-anything-c-dabbrev-invoking-flag activate)
   (setq anything-c-dabbrev-invoking-flag nil))
-
-(defadvice anything-execute-selection-action (around anything-c-dabbrev-saved-sources activate)
-  "If a candidate was selected then perform the associated
-action."
-  (cond ((and (boundp 'anything-c-dabbrev-invoking-flag)
-              anything-c-dabbrev-invoking-flag)
-         (let* ((selection (if anything-saved-sources
-                               ;; the action list is shown
-                               anything-saved-selection
-                             (anything-get-selection)))
-                (action (or anything-c-dabbrev-anything-saved-action
-                            (if anything-saved-sources
-                                ;; the action list is shown
-                                (anything-get-selection)
-                              (anything-get-action)))))
-
-           (if (and (listp action)
-                    (not (functionp action))) ; lambda
-               ;;select the default action
-               (setq action (cdar action)))
-           (setq anything-c-dabbrev-anything-saved-action nil)
-           (if (and selection action)
-               (funcall action selection))))
-        (t
-         ad-do-it)))
 
 (defvar anything-c-dabbrev-remove-initial-input-flag t "")