diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-04-02 16:57:27 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-04-02 16:57:27 +0200 |
commit | 207fb36f04afd9f794b950ab4ee74e4e45867db7 (patch) | |
tree | 644f4e3931241b70d95acf6d1b08bb7b91431505 | |
parent | 8d65d4247ebd830d2573bdc523d83bb3626b8a81 (diff) |
Fix autoloads and remove faces variables.
Remove `generated-autoload-file' local var in all files.
* helm-bookmark.el (helm-bookmark-directory): new face.
Remove obsolete faces vars.
* helm-misc.el: require also *-files and *-buffers.
* helm.el: Reorder, clean and remove obsolete faces.
40 files changed, 133 insertions, 207 deletions
diff --git a/helm-adaptative.el b/helm-adaptative.el index 1b7c6c15..976f7326 100644 --- a/helm-adaptative.el +++ b/helm-adaptative.el @@ -241,7 +241,6 @@ candidate can be in (DISPLAY . REAL) format." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-adaptative.el ends here diff --git a/helm-apt.el b/helm-apt.el index 0122e554..dc8b9443 100644 --- a/helm-apt.el +++ b/helm-apt.el @@ -192,7 +192,6 @@ With a prefix arg reload cache." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-apt.el ends here diff --git a/helm-bbdb.el b/helm-bbdb.el index 0c5c42bd..5f2e78fa 100644 --- a/helm-bbdb.el +++ b/helm-bbdb.el @@ -119,7 +119,6 @@ http://bbdb.sourceforge.net/" ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-bbdb ends here diff --git a/helm-bmkext.el b/helm-bmkext.el index da4a15ec..33eb164e 100644 --- a/helm-bmkext.el +++ b/helm-bmkext.el @@ -302,7 +302,6 @@ Contain also `helm-c-source-google-suggest'." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-bmkext.el ends here diff --git a/helm-bookmark.el b/helm-bookmark.el index ce14270d..955c2f98 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -58,11 +58,12 @@ "*Face used for file bookmarks." :group 'helm-bookmark) - -(defvar helm-c-bookmarks-face1 'helm-ff-directory) -(defvar helm-c-bookmarks-face2 'helm-ff-file) -(defvar helm-c-bookmarks-face3 'helm-bookmarks-su-face) +(defface helm-bookmark-directory + '((t (:inherit helm-ff-directory))) + "*Face used for file bookmarks." + :group 'helm-bookmark) + (defvar helm-c-bookmark-map (let ((map (make-sparse-keymap))) (set-keymap-parent map helm-map) @@ -148,7 +149,7 @@ (defun helm-c-highlight-not-logged (files source) (loop for i in files - collect (propertize i 'face helm-c-bookmarks-face3))) + collect (propertize i 'face 'helm-bookmarks-su-face))) (defun helm-c-highlight-bookmark (bookmarks source) "Used as `candidate-transformer' to colorize bookmarks. @@ -191,7 +192,7 @@ Work both with standard Emacs bookmarks and bookmark-extensions.el." (propertize i 'face '((:foreground "Tomato")))) (;; directories (and isfile (file-directory-p isfile)) - (propertize i 'face helm-c-bookmarks-face1 'help-echo isfile)) + (propertize i 'face 'helm-bookmark-directory 'help-echo isfile)) (;; regular files t (propertize i 'face 'helm-bookmark-file 'help-echo isfile))))) @@ -269,7 +270,6 @@ Return nil if bmk is not a valid bookmark." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-bookmark.el ends here diff --git a/helm-buffers.el b/helm-buffers.el index 97365ebb..bdf95f07 100644 --- a/helm-buffers.el +++ b/helm-buffers.el @@ -486,7 +486,6 @@ It is an enhanced version of `helm-for-buffers'." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-buffers.el ends here diff --git a/helm-call-tree.el b/helm-call-tree.el index af6a4270..d446ec7f 100644 --- a/helm-call-tree.el +++ b/helm-call-tree.el @@ -123,7 +123,6 @@ http://www.emacswiki.org/cgi-bin/wiki/download/simple-call-tree.el" ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-call-tree.el ends here diff --git a/helm-color.el b/helm-color.el index cbc02232..c3aad06a 100644 --- a/helm-color.el +++ b/helm-color.el @@ -95,7 +95,6 @@ ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-color.el ends here diff --git a/helm-command.el b/helm-command.el index 04463ecb..e0b68870 100644 --- a/helm-command.el +++ b/helm-command.el @@ -156,7 +156,6 @@ It is `helm' replacement of regular `M-x' `execute-extended-command'." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-command.el ends here diff --git a/helm-config.el b/helm-config.el index c740b73e..4edd3316 100644 --- a/helm-config.el +++ b/helm-config.el @@ -160,7 +160,7 @@ ;;;### (autoloads (helm-toggle-all-marks helm-unmark-all helm-mark-all ;;;;;; helm-toggle-visible-mark helm-other-buffer helm-at-point) -;;;;;; "helm" "helm.el" (20339 30574)) +;;;;;; "helm" "helm.el" (20345 39153)) ;;; Generated autoloads from helm.el (autoload 'helm-at-point "helm" "\ @@ -201,7 +201,7 @@ visible or invisible in all sources of current helm session ;;;*** ;;;### (autoloads (helm-c-reset-adaptative-history) "helm-adaptative" -;;;;;; "helm-adaptative.el" (20339 30586)) +;;;;;; "helm-adaptative.el" (20345 37609)) ;;; Generated autoloads from helm-adaptative.el (autoload 'helm-c-reset-adaptative-history "helm-adaptative" "\ @@ -212,7 +212,7 @@ Useful when you have a old or corrupted `helm-c-adaptive-history-file'. ;;;*** -;;;### (autoloads (helm-apt) "helm-apt" "helm-apt.el" (20339 30586)) +;;;### (autoloads (helm-apt) "helm-apt" "helm-apt.el" (20345 37629)) ;;; Generated autoloads from helm-apt.el (autoload 'helm-apt "helm-apt" "\ @@ -223,7 +223,7 @@ With a prefix arg reload cache. ;;;*** -;;;### (autoloads (helm-bbdb) "helm-bbdb" "helm-bbdb.el" (20339 30586)) +;;;### (autoloads (helm-bbdb) "helm-bbdb" "helm-bbdb.el" (20345 37635)) ;;; Generated autoloads from helm-bbdb.el (autoload 'helm-bbdb "helm-bbdb" "\ @@ -238,7 +238,7 @@ http://bbdb.sourceforge.net/ ;;;*** ;;;### (autoloads (helm-bookmark-ext helm-c-bmkext-run-edit) "helm-bmkext" -;;;;;; "helm-bmkext.el" (20339 30582)) +;;;;;; "helm-bmkext.el" (20345 37642)) ;;; Generated autoloads from helm-bmkext.el (autoload 'helm-c-bmkext-run-edit "helm-bmkext" "\ @@ -258,7 +258,7 @@ Contain also `helm-c-source-google-suggest'. ;;;### (autoloads (helm-c-pp-bookmarks helm-bookmarks helm-c-bookmark-run-delete ;;;;;; helm-c-bookmark-run-jump-other-window) "helm-bookmark" "helm-bookmark.el" -;;;;;; (20339 30582)) +;;;;;; (20345 37647)) ;;; Generated autoloads from helm-bookmark.el (autoload 'helm-c-bookmark-run-jump-other-window "helm-bookmark" "\ @@ -289,7 +289,7 @@ Preconfigured `helm' for bookmarks (pretty-printed). ;;;;;; helm-buffer-run-zgrep helm-buffer-run-grep helm-buffer-run-kill-buffers ;;;;;; helm-buffer-save-persistent helm-buffer-revert-persistent ;;;;;; helm-buffer-diff-persistent) "helm-buffers" "helm-buffers.el" -;;;;;; (20339 30581)) +;;;;;; (20345 37652)) ;;; Generated autoloads from helm-buffers.el (autoload 'helm-buffer-diff-persistent "helm-buffers" "\ @@ -361,7 +361,7 @@ It is an enhanced version of `helm-for-buffers'. ;;;*** ;;;### (autoloads (helm-simple-call-tree) "helm-call-tree" "helm-call-tree.el" -;;;;;; (20339 30586)) +;;;;;; (20345 37659)) ;;; Generated autoloads from helm-call-tree.el (autoload 'helm-simple-call-tree "helm-call-tree" "\ @@ -374,8 +374,8 @@ http://www.emacswiki.org/cgi-bin/wiki/download/simple-call-tree.el ;;;*** -;;;### (autoloads (helm-colors) "helm-color" "helm-color.el" (20339 -;;;;;; 30586)) +;;;### (autoloads (helm-colors) "helm-color" "helm-color.el" (20345 +;;;;;; 37665)) ;;; Generated autoloads from helm-color.el (autoload 'helm-colors "helm-color" "\ @@ -385,8 +385,8 @@ Preconfigured `helm' for color. ;;;*** -;;;### (autoloads (helm-M-x) "helm-command" "helm-command.el" (20339 -;;;;;; 30585)) +;;;### (autoloads (helm-M-x) "helm-command" "helm-command.el" (20345 +;;;;;; 37669)) ;;; Generated autoloads from helm-command.el (autoload 'helm-M-x "helm-command" "\ @@ -401,7 +401,7 @@ It is `helm' replacement of regular `M-x' `execute-extended-command'. ;;;;;; helm-c-apropos helm-lisp-completion-or-file-name-at-point ;;;;;; helm-lisp-completion-at-point-or-indent helm-c-complete-file-name-at-point ;;;;;; helm-lisp-completion-at-point) "helm-elisp" "helm-elisp.el" -;;;;;; (20339 30581)) +;;;;;; (20345 37686)) ;;; Generated autoloads from helm-elisp.el (autoload 'helm-lisp-completion-at-point "helm-elisp" "\ @@ -454,7 +454,7 @@ Preconfigured `helm' for timers. ;;;*** ;;;### (autoloads (helm-elscreen) "helm-elscreen" "helm-elscreen.el" -;;;;;; (20339 30585)) +;;;;;; (20345 37691)) ;;; Generated autoloads from helm-elscreen.el (autoload 'helm-elscreen "helm-elscreen" "\ @@ -464,7 +464,7 @@ Preconfigured helm to list elscreen. ;;;*** -;;;### (autoloads (helm-emms) "helm-emms" "helm-emms.el" (20339 30585)) +;;;### (autoloads (helm-emms) "helm-emms" "helm-emms.el" (20345 37878)) ;;; Generated autoloads from helm-emms.el (autoload 'helm-emms "helm-emms" "\ @@ -475,7 +475,7 @@ Preconfigured `helm' for emms sources. ;;;*** ;;;### (autoloads (helm-eshell-history helm-esh-pcomplete) "helm-eshell" -;;;;;; "helm-eshell.el" (20339 30585)) +;;;;;; "helm-eshell.el" (20345 37703)) ;;; Generated autoloads from helm-eshell.el (autoload 'helm-esh-pcomplete "helm-eshell" "\ @@ -491,7 +491,7 @@ Preconfigured helm for eshell history. ;;;*** ;;;### (autoloads (helm-calcul-expression helm-eval-expression-with-eldoc -;;;;;; helm-eval-expression) "helm-eval" "helm-eval.el" (20339 30581)) +;;;;;; helm-eval-expression) "helm-eval" "helm-eval.el" (20345 37707)) ;;; Generated autoloads from helm-eval.el (autoload 'helm-eval-expression "helm-eval" "\ @@ -512,7 +512,7 @@ Preconfigured helm for `helm-c-source-calculation-result'. ;;;*** ;;;### (autoloads (helm-c-run-external-command) "helm-external" "helm-external.el" -;;;;;; (20339 30585)) +;;;;;; (20345 37576)) ;;; Generated autoloads from helm-external.el (autoload 'helm-c-run-external-command "helm-external" "\ @@ -540,7 +540,7 @@ You can set your own list of commands with ;;;;;; helm-ff-run-load-file helm-ff-run-byte-compile-file helm-ff-run-rename-file ;;;;;; helm-ff-run-copy-file helm-ff-run-zgrep helm-ff-run-pdfgrep ;;;;;; helm-ff-run-grep helm-ff-run-switch-to-history helm-ff-run-toggle-auto-update) -;;;;;; "helm-files" "helm-files.el" (20339 30581)) +;;;;;; "helm-files" "helm-files.el" (20345 37733)) ;;; Generated autoloads from helm-files.el (autoload 'helm-ff-run-toggle-auto-update "helm-files" "\ @@ -774,7 +774,7 @@ Preconfigured `helm' for `recentf'. ;;;*** ;;;### (autoloads (helm-firefox-bookmarks) "helm-firefox" "helm-firefox.el" -;;;;;; (20339 30584)) +;;;;;; (20345 37739)) ;;; Generated autoloads from helm-firefox.el (autoload 'helm-firefox-bookmarks "helm-firefox" "\ @@ -795,7 +795,7 @@ After closing firefox, you will be able to browse you bookmarks. ;;;*** ;;;### (autoloads (helm-ucs helm-select-xfont) "helm-font" "helm-font.el" -;;;;;; (20339 30587)) +;;;;;; (20345 37745)) ;;; Generated autoloads from helm-font.el (autoload 'helm-select-xfont "helm-font" "\ @@ -810,8 +810,8 @@ Preconfigured helm for `ucs-names' math symbols. ;;;*** -;;;### (autoloads (helm-gentoo) "helm-gentoo" "helm-gentoo.el" (20339 -;;;;;; 30586)) +;;;### (autoloads (helm-gentoo) "helm-gentoo" "helm-gentoo.el" (20345 +;;;;;; 37750)) ;;; Generated autoloads from helm-gentoo.el (autoload 'helm-gentoo "helm-gentoo" "\ @@ -824,7 +824,7 @@ Preconfigured `helm' for gentoo linux. ;;;### (autoloads (helm-do-pdfgrep helm-do-zgrep helm-do-grep helm-c-grep-run-save-buffer ;;;;;; helm-c-grep-run-other-window-action helm-c-grep-run-default-action ;;;;;; helm-c-grep-run-persistent-action helm-c-goto-next-file helm-c-goto-precedent-file) -;;;;;; "helm-grep" "helm-grep.el" (20339 30581)) +;;;;;; "helm-grep" "helm-grep.el" (20345 37756)) ;;; Generated autoloads from helm-grep.el (autoload 'helm-c-goto-precedent-file "helm-grep" "\ @@ -885,7 +885,7 @@ Preconfigured helm for pdfgrep. ;;;### (autoloads (helm-etags-help helm-pdfgrep-help helm-grep-help ;;;;;; helm-generic-file-help helm-read-file-name-help helm-ff-help -;;;;;; helm-c-buffer-help) "helm-help" "helm-help.el" (20339 30587)) +;;;;;; helm-c-buffer-help) "helm-help" "helm-help.el" (20345 37762)) ;;; Generated autoloads from helm-help.el (autoload 'helm-c-buffer-help "helm-help" "\ @@ -925,8 +925,8 @@ The help function for etags. ;;;*** -;;;### (autoloads (helm-imenu) "helm-imenu" "helm-imenu.el" (20339 -;;;;;; 30584)) +;;;### (autoloads (helm-imenu) "helm-imenu" "helm-imenu.el" (20345 +;;;;;; 37769)) ;;; Generated autoloads from helm-imenu.el (autoload 'helm-imenu "helm-imenu" "\ @@ -937,7 +937,7 @@ Preconfigured `helm' for `imenu'. ;;;*** ;;;### (autoloads (helm-info-at-point) "helm-info" "helm-info.el" -;;;;;; (20339 30582)) +;;;;;; (20345 37774)) ;;; Generated autoloads from helm-info.el (autoload 'helm-info-at-point "helm-info" "\ @@ -948,8 +948,8 @@ With a prefix-arg insert symbol at point. ;;;*** -;;;### (autoloads (helm-locate) "helm-locate" "helm-locate.el" (20339 -;;;;;; 30582)) +;;;### (autoloads (helm-locate) "helm-locate" "helm-locate.el" (20345 +;;;;;; 37781)) ;;; Generated autoloads from helm-locate.el (autoload 'helm-locate "helm-locate" "\ @@ -970,8 +970,8 @@ Where db_path is a filename matched by ;;;*** -;;;### (autoloads (helm-man-woman) "helm-man" "helm-man.el" (20339 -;;;;;; 30582)) +;;;### (autoloads (helm-man-woman) "helm-man" "helm-man.el" (20345 +;;;;;; 37787)) ;;; Generated autoloads from helm-man.el (autoload 'helm-man-woman "helm-man" "\ @@ -982,7 +982,7 @@ Preconfigured `helm' for Man and Woman pages. ;;;*** ;;;### (autoloads (helm-mp-toggle-match-plugin) "helm-match-plugin" -;;;;;; "helm-match-plugin.el" (20339 30560)) +;;;;;; "helm-match-plugin.el" (20345 37793)) ;;; Generated autoloads from helm-match-plugin.el (autoload 'helm-mp-toggle-match-plugin "helm-match-plugin" "\ @@ -995,7 +995,7 @@ i.e helm-match-plugin. ;;;### (autoloads (helm-minibuffer-history helm-mini helm-ratpoison-commands ;;;;;; helm-eev-anchors helm-c-insert-latex-math helm-world-time) -;;;;;; "helm-misc" "helm-misc.el" (20339 30585)) +;;;;;; "helm-misc" "helm-misc.el" (20345 47987)) ;;; Generated autoloads from helm-misc.el (autoload 'helm-world-time "helm-misc" "\ @@ -1030,7 +1030,7 @@ Preconfigured `helm' for `minibuffer-history'. ;;;*** -;;;### (autoloads (helm-mode) "helm-mode" "helm-mode.el" (20339 30581)) +;;;### (autoloads (helm-mode) "helm-mode" "helm-mode.el" (20345 37807)) ;;; Generated autoloads from helm-mode.el (defvar helm-mode nil "\ @@ -1067,7 +1067,7 @@ Note: This mode will work only partially on Emacs23. ;;;*** ;;;### (autoloads (helm-yahoo-suggest helm-google-suggest helm-surfraw) -;;;;;; "helm-net" "helm-net.el" (20339 30583)) +;;;;;; "helm-net" "helm-net.el" (20345 37812)) ;;; Generated autoloads from helm-net.el (autoload 'helm-surfraw "helm-net" "\ @@ -1088,7 +1088,7 @@ Preconfigured `helm' for Yahoo searching with Yahoo suggest. ;;;*** ;;;### (autoloads (helm-org-headlines helm-org-keywords) "helm-org" -;;;;;; "helm-org.el" (20339 30583)) +;;;;;; "helm-org.el" (20345 37817)) ;;; Generated autoloads from helm-org.el (autoload 'helm-org-keywords "helm-org" "\ @@ -1104,7 +1104,7 @@ Preconfigured helm to show org headlines. ;;;*** ;;;### (autoloads (helm-browse-code helm-occur helm-regexp) "helm-regexp" -;;;;;; "helm-regexp.el" (20339 30583)) +;;;;;; "helm-regexp.el" (20345 37835)) ;;; Generated autoloads from helm-regexp.el (autoload 'helm-regexp "helm-regexp" "\ @@ -1129,7 +1129,7 @@ Preconfigured helm to browse code. ;;;### (autoloads (helm-show-kill-ring helm-register helm-all-mark-rings ;;;;;; helm-global-mark-ring helm-mark-ring) "helm-ring" "helm-ring.el" -;;;;;; (20339 30583)) +;;;;;; (20345 37840)) ;;; Generated autoloads from helm-ring.el (autoload 'helm-mark-ring "helm-ring" "\ @@ -1163,7 +1163,7 @@ First call open the kill-ring browser, next calls move to next line. ;;;*** ;;;### (autoloads (helm-xrandr-set helm-list-emacs-process helm-top) -;;;;;; "helm-sys" "helm-sys.el" (20339 30583)) +;;;;;; "helm-sys" "helm-sys.el" (20345 37844)) ;;; Generated autoloads from helm-sys.el (autoload 'helm-top "helm-sys" "\ @@ -1184,7 +1184,7 @@ Preconfigured `helm' for emacs process. ;;;*** ;;;### (autoloads (helm-c-etags-select) "helm-tags" "helm-tags.el" -;;;;;; (20339 30584)) +;;;;;; (20345 37848)) ;;; Generated autoloads from helm-tags.el (autoload 'helm-c-etags-select "helm-tags" "\ @@ -1198,7 +1198,7 @@ If tag file have been modified reinitialize cache. ;;;*** ;;;### (autoloads (helm-yank-text-at-point helm-w32-shell-execute-open-file -;;;;;; helm-test-sources) "helm-utils" "helm-utils.el" (20339 30584)) +;;;;;; helm-test-sources) "helm-utils" "helm-utils.el" (20345 37852)) ;;; Generated autoloads from helm-utils.el (autoload 'helm-test-sources "helm-utils" "\ @@ -1219,8 +1219,8 @@ Yank text at point in minibuffer. ;;;*** -;;;### (autoloads (helm-w3m-bookmarks) "helm-w3m" "helm-w3m.el" (20339 -;;;;;; 30584)) +;;;### (autoloads (helm-w3m-bookmarks) "helm-w3m" "helm-w3m.el" (20345 +;;;;;; 37856)) ;;; Generated autoloads from helm-w3m.el (autoload 'helm-w3m-bookmarks "helm-w3m" "\ @@ -1237,7 +1237,7 @@ http://emacs-w3m.namazu.org/ ;;;### (autoloads (helm-yaoddmuse-emacswiki-post-library helm-yaoddmuse-emacswiki-edit-or-view ;;;;;; helm-yaoddmuse-cache-pages) "helm-yaoddmuse" "helm-yaoddmuse.el" -;;;;;; (20339 30584)) +;;;;;; (20345 37860)) ;;; Generated autoloads from helm-yaoddmuse.el (autoload 'helm-yaoddmuse-cache-pages "helm-yaoddmuse" "\ @@ -1266,8 +1266,8 @@ http://www.emacswiki.org/emacs/download/yaoddmuse.el ;;;*** -;;;### (autoloads nil nil ("helm-pkg.el" "helm-plugin.el") (20339 -;;;;;; 30631 319356)) +;;;### (autoloads nil nil ("helm-pkg.el" "helm-plugin.el") (20345 +;;;;;; 47995 891474)) ;;;*** @@ -1279,7 +1279,6 @@ http://www.emacswiki.org/emacs/download/yaoddmuse.el ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-config.el ends here diff --git a/helm-elisp.el b/helm-elisp.el index 69af5189..f756873f 100644 --- a/helm-elisp.el +++ b/helm-elisp.el @@ -561,7 +561,6 @@ STRING is string to match." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-elisp.el ends here diff --git a/helm-elscreen.el b/helm-elscreen.el index 5118ecaf..7287585c 100644 --- a/helm-elscreen.el +++ b/helm-elscreen.el @@ -74,7 +74,6 @@ ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-elscreen.el ends here diff --git a/helm-emms.el b/helm-emms.el index be0a2c5b..fc0926d9 100644 --- a/helm-emms.el +++ b/helm-emms.el @@ -180,7 +180,6 @@ ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-emms ends here diff --git a/helm-eshell.el b/helm-eshell.el index 66864bbe..f7e67a00 100644 --- a/helm-eshell.el +++ b/helm-eshell.el @@ -179,7 +179,6 @@ The function that call this should set `helm-ec-target' to thing at point." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-eshell ends here diff --git a/helm-eval.el b/helm-eval.el index b2681863..df9a9103 100644 --- a/helm-eval.el +++ b/helm-eval.el @@ -175,7 +175,6 @@ Should take one arg: the string to display." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-eval.el ends here diff --git a/helm-external.el b/helm-external.el index 2d905d55..d0681148 100644 --- a/helm-external.el +++ b/helm-external.el @@ -208,7 +208,6 @@ You can set your own list of commands with ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-external ends here diff --git a/helm-files.el b/helm-files.el index ef9c9209..e0b468ba 100644 --- a/helm-files.el +++ b/helm-files.el @@ -2600,7 +2600,6 @@ Run all sources defined in `helm-for-files-prefered-list'." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-files.el ends here diff --git a/helm-firefox.el b/helm-firefox.el index 0a2795c3..3752fdf6 100644 --- a/helm-firefox.el +++ b/helm-firefox.el @@ -106,7 +106,6 @@ After closing firefox, you will be able to browse you bookmarks. ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-firefox.el ends here diff --git a/helm-font.el b/helm-font.el index 918702f6..381ff160 100644 --- a/helm-font.el +++ b/helm-font.el @@ -164,7 +164,6 @@ Only math* symbols are collected." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-font.el ends here diff --git a/helm-gentoo.el b/helm-gentoo.el index 0d5e7ebc..9456f8f5 100644 --- a/helm-gentoo.el +++ b/helm-gentoo.el @@ -255,7 +255,6 @@ ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-gentoo.el ends here diff --git a/helm-grep.el b/helm-grep.el index 0dd09f7a..8cd4ce42 100644 --- a/helm-grep.el +++ b/helm-grep.el @@ -710,7 +710,6 @@ See also `helm-do-grep-1'." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-grep.el ends here diff --git a/helm-help.el b/helm-help.el index 3b6ed1dc..07efe370 100644 --- a/helm-help.el +++ b/helm-help.el @@ -497,7 +497,6 @@ Otherwise your command will be called many times like this: ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-help.el ends here diff --git a/helm-imenu.el b/helm-imenu.el index 39c25bf2..845c3e6e 100644 --- a/helm-imenu.el +++ b/helm-imenu.el @@ -109,7 +109,6 @@ ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-imenu.el ends here diff --git a/helm-info.el b/helm-info.el index ab5a8669..b77800a4 100644 --- a/helm-info.el +++ b/helm-info.el @@ -134,7 +134,6 @@ With a prefix-arg insert symbol at point." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-info.el ends here diff --git a/helm-locate.el b/helm-locate.el index 3e8a4562..5558d978 100644 --- a/helm-locate.el +++ b/helm-locate.el @@ -226,7 +226,6 @@ Where db_path is a filename matched by ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-locate.el ends here diff --git a/helm-man.el b/helm-man.el index 664d2593..2150dee9 100644 --- a/helm-man.el +++ b/helm-man.el @@ -76,7 +76,6 @@ source.") ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-man.el ends here diff --git a/helm-match-plugin.el b/helm-match-plugin.el index 5a4f645d..71080cba 100644 --- a/helm-match-plugin.el +++ b/helm-match-plugin.el @@ -434,7 +434,6 @@ i.e helm-match-plugin." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-match-plugin.el ends here diff --git a/helm-misc.el b/helm-misc.el index 49cf6b85..cc9cec72 100644 --- a/helm-misc.el +++ b/helm-misc.el @@ -18,6 +18,8 @@ ;;; Code: (eval-when-compile (require 'cl)) (require 'helm) +(require 'helm-buffers) +(require 'helm-files) (defgroup helm-misc nil @@ -336,7 +338,6 @@ It is added to `extended-command-history'. ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-misc.el ends here diff --git a/helm-mode.el b/helm-mode.el index 2759f745..5e2e2b26 100644 --- a/helm-mode.el +++ b/helm-mode.el @@ -776,7 +776,6 @@ Note: This mode will work only partially on Emacs23." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-mode.el ends here diff --git a/helm-net.el b/helm-net.el index 9a6145e2..df02cce8 100644 --- a/helm-net.el +++ b/helm-net.el @@ -368,7 +368,6 @@ Return an alist with elements like (data . number_results)." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-net.el ends here diff --git a/helm-org.el b/helm-org.el index 91f6a054..4d0f08a4 100644 --- a/helm-org.el +++ b/helm-org.el @@ -177,7 +177,6 @@ See http://orgmode.org for the latest version.") ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-org.el ends here diff --git a/helm-plugin.el b/helm-plugin.el index 9c9a9c5a..13f6d9c0 100644 --- a/helm-plugin.el +++ b/helm-plugin.el @@ -329,7 +329,6 @@ with original attribute value. ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-plugin ends here diff --git a/helm-regexp.el b/helm-regexp.el index bc095ca3..2912bfac 100644 --- a/helm-regexp.el +++ b/helm-regexp.el @@ -302,7 +302,6 @@ otherwise search in whole buffer." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-regexp.el ends here diff --git a/helm-ring.el b/helm-ring.el index a7ed671c..21e1656d 100644 --- a/helm-ring.el +++ b/helm-ring.el @@ -353,7 +353,6 @@ First call open the kill-ring browser, next calls move to next line." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-ring.el ends here diff --git a/helm-sys.el b/helm-sys.el index bd43a62c..2d5cf34c 100644 --- a/helm-sys.el +++ b/helm-sys.el @@ -148,7 +148,6 @@ ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-sys.el ends here diff --git a/helm-tags.el b/helm-tags.el index 020df7a6..eed323b1 100644 --- a/helm-tags.el +++ b/helm-tags.el @@ -283,7 +283,6 @@ If tag file have been modified reinitialize cache." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-tags.el ends here diff --git a/helm-utils.el b/helm-utils.el index 03888d62..47c49efa 100644 --- a/helm-utils.el +++ b/helm-utils.el @@ -658,7 +658,6 @@ directory, open this directory." ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-utils.el ends here diff --git a/helm-w3m.el b/helm-w3m.el index 2271156d..f6365bd4 100644 --- a/helm-w3m.el +++ b/helm-w3m.el @@ -143,7 +143,6 @@ http://emacs-w3m.namazu.org/" ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-w3m.el ends here diff --git a/helm-yaoddmuse.el b/helm-yaoddmuse.el index 60fb68a9..f633ce01 100644 --- a/helm-yaoddmuse.el +++ b/helm-yaoddmuse.el @@ -167,7 +167,6 @@ http://www.emacswiki.org/emacs/download/yaoddmuse.el" ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm-yaoddmuse.el ends here @@ -99,16 +99,44 @@ "Keymap for helm.") -;;; Variables -;; -;; (defgroup helm nil "Open helm." :prefix "helm-" :group 'convenience) -(defface helm-overlay-line-face '((t (:background "IndianRed4" :underline t))) - "Face for source header in the helm buffer." :group 'helm) +;;; Faces +;; +;; +(defface helm-source-header + '((t (:background "#22083397778B" :foreground "white" :underline t))) + "Face for source header in the helm buffer." + :group 'helm) + +(defface helm-visible-mark + '((((min-colors 88) (background dark)) + (:background "green1" :foreground "black")) + (((background dark)) (:background "green" :foreground "black")) + (((min-colors 88)) (:background "green1")) + (t (:background "green"))) + "Face for visible mark." + :group 'helm) + +(defface helm-header + '((t (:inherit header-line))) + "Face for header lines in the helm buffer." + :group 'helm) + +(defface helm-candidate-number + '((t (:background "Yellow" :foreground "black"))) + "Face for candidate number in mode-line." :group 'helm) +(defface helm-selection + '((t (:inherit highlight))) + "Face for currently selected item in the helm buffer." + :group 'helm) + +;;; Variables +;; +;; (defvar helm-type-attributes nil "It's a list of \(TYPE ATTRIBUTES ...\). ATTRIBUTES are the same as attributes for `helm-sources'. @@ -189,26 +217,6 @@ Other sources won't appear in the search results. If nil then there is no filtering. See also `helm-set-source-filter'.") -(defface helm-header - '((t (:inherit header-line))) - "Face for header lines in the helm buffer." - :group 'helm) - -(defvar helm-header-face 'helm-header - "*Face for header lines in the helm buffer.") - -(defface helm-candidate-number - '((t (:background "Yellow" :foreground "black"))) - "Face for candidate number in mode-line." :group 'helm) - -(defface helm-selection - '((t (:inherit highlight))) - "Face for currently selected item in the helm buffer." - :group 'helm) - -(defvar helm-selection-face 'helm-selection - "*Face for currently selected item in the helm buffer.") - (defvar helm-action-buffer "*helm action*" "Buffer showing actions.") @@ -417,9 +425,10 @@ It is disabled by default because *Helm Log* grows quickly.") (defvar helm-split-window-state nil) (defvar helm-selection-point nil) (defvar helm-alive-p nil) +(defvar helm-visible-mark-overlays nil) -;; (@* "Utility: logging") +;; Utility: logging (defun helm-log (format-string &rest args) "Log message if `debug-on-error' or `helm-debug' is non-nil. Messages are written to the *Helm Log* buffer. @@ -507,7 +516,7 @@ ARGS are args given to `format'." ;; (switch-to-buffer-other-window "*Helm Log*") -;; (@* "Programming Tools") +;; Programming Tools (defmacro helm-aif (test-form then-form &rest else-forms) "Like `if' but set the result of TEST-FORM in a temprary variable called `it'. THEN-FORM and ELSE-FORMS are then excuted just like in `if'." @@ -523,7 +532,7 @@ Otherwise make a list with one element." (list obj))) -;; (@* "Helm API") +;; Helm API (defun helm-buffer-get () "Return `helm-action-buffer' if shown otherwise `helm-buffer'." @@ -845,7 +854,7 @@ Otherwise, return VALUE itself." (push spec helm-once-called-functions)))) -;; (@* "Core: API helper") +;; Core: API helper (defun* helm-empty-buffer-p (&optional (buffer helm-buffer)) "Check if BUFFER have candidates. Default value for BUFFER is `helm-buffer'." @@ -885,7 +894,7 @@ BINDING is a list of \(VARNAME . VALUE\) pair." (setq helm-let-variables nil))) -;; (@* "Core: tools") +;; Core: tools (defun helm-current-line-contents () "Current line string without properties." (buffer-substring-no-properties (point-at-bol) (point-at-eol))) @@ -982,7 +991,7 @@ This is used in transformers to modify candidates list." (set variable timer)) -;; (@* "Core: entry point") +;; Core: entry point (defconst helm-argument-keys '(:sources :input :prompt :resume :preselect :buffer :keymap :default :history)) @@ -1091,7 +1100,7 @@ in source." unless (memq key helm-argument-keys) collect (cons sym value))) -;;; (@* "Core: entry point helper") +;;; Core: entry point helper (defun helm-internal (&optional any-sources any-input any-prompt any-resume @@ -1279,7 +1288,7 @@ For ANY-RESUME ANY-INPUT and ANY-SOURCES See `helm'." (push elt (symbol-value list-var)))) -;;; (@* "Core: Accessors") +;;; Core: Accessors ;;; rubikitch: I love to create functions to control variables. (defvar helm-current-position nil "Cons of \(point . window-start\) when `helm' is invoked. @@ -1327,7 +1336,7 @@ window or frame configuration is saved/restored according to values of (select-frame-set-input-focus frame))))) -;; (@* "Core: Display *helm* buffer") +;; Core: Display *helm* buffer (defun helm-display-buffer (buf) "Display *helm* buffer BUF." (let (pop-up-frames) @@ -1341,7 +1350,7 @@ It use `switch-to-buffer' or `pop-to-buffer' depending of value of (funcall (if helm-samewindow 'switch-to-buffer 'pop-to-buffer) buf)) -;; (@* "Core: initialize") +;; Core: initialize (defun helm-initial-setup () "Initialize helm settings and set up the helm buffer." (helm-log-run-hook 'helm-before-initialize-hook) @@ -1459,7 +1468,7 @@ If TEST-MODE is non-nil, clear `helm-candidate-cache'." (setq helm-selection-overlay (make-overlay (point-min) (point-min) (get-buffer buffer))) - (overlay-put helm-selection-overlay 'face helm-selection-face)) + (overlay-put helm-selection-overlay 'face 'helm-selection)) (cond (helm-enable-shortcuts (setq helm-shortcut-keys @@ -1488,7 +1497,7 @@ hooks concerned are `post-command-hook' and `minibuffer-setup-hook'." (dolist (args (reverse hooks)) (apply 'remove-hook args))))) -;; (@* "Core: clean up") +;; Core: clean up ;;; TODO move (defun helm-cleanup () "Clean up the mess when helm exit or quit." @@ -1525,7 +1534,7 @@ hooks concerned are `post-command-hook' and `minibuffer-setup-hook'." (delete-minibuffer-contents))))) -;; (@* "Core: input handling") +;; Core: input handling (defun helm-check-minibuffer-input () "Extract input string from the minibuffer and check if it needs to be handled." (let ((delay (with-current-buffer helm-buffer @@ -1553,7 +1562,7 @@ hooks concerned are `post-command-hook' and `minibuffer-setup-hook'." (helm-update))) -;; (@* "Core: source compiler") +;; Core: source compiler (defvar helm-compile-source-functions-default helm-compile-source-functions "Plug-ins this file provides.") (defun helm-compile-sources (sources funcs) @@ -1569,7 +1578,7 @@ Helm plug-ins are realized by this function." sources)) -;; (@* "Core: plug-in attribute documentation hack") +;; Core: plug-in attribute documentation hack ;; `helm-document-attribute' is public API. (defadvice documentation-property (after helm-document-attribute activate) @@ -1585,7 +1594,7 @@ Helm plug-ins are realized by this function." ;; (progn (ad-disable-advice 'documentation-property 'after 'helm-document-attribute) (ad-update 'documentation-property)) -;; (@* "Core: all candidates") +;; Core: all candidates (defun helm-process-delayed-init (source) "Initialize delayed SOURCE." (let ((name (assoc-default 'name source))) @@ -1637,7 +1646,7 @@ Cache the candidates if there is not yet a cached value." candidates))))) -;;; (@* "Core: candidate transformers") +;;; Core: candidate transformers (defun helm-transform-mapcar (function args) "`mapcar' for candidate-transformer. @@ -1695,7 +1704,7 @@ This happen if PROCESS-P is non-nil." source)) -;; (@* "Core: narrowing candidates") +;; Core: narrowing candidates (defun helm-candidate-number-limit (source) "Apply candidate-number-limit attribute value. This overhide variable `helm-candidate-number-limit'. @@ -1865,7 +1874,7 @@ when emacs is idle for `helm-idle-delay'." (helm-log-run-hook 'helm-after-update-hook)))) -;; (@* "Core: *helm* buffer contents") +;; Core: *helm* buffer contents (defvar helm-input-local nil) (defvar helm-process-delayed-sources-timer nil) (defun helm-update (&optional preselect) @@ -2038,17 +2047,17 @@ after the source name by overlay." (overlay-put (make-overlay (point-at-bol) (point-at-eol)) 'display display-string)) (insert "\n") - (put-text-property start (point) 'face helm-header-face))) + (put-text-property start (point) 'face 'helm-source-header))) (defun helm-insert-candidate-separator () "Insert separator of candidates into the helm buffer." - (insert helm-candidate-separator) + (insert (propertize helm-candidate-separator 'face 'helm-separator)) (put-text-property (point-at-bol) (point-at-eol) 'helm-candidate-separator t) (insert "\n")) -;; (@* "Core: async process") +;; Core: async process (defun helm-output-filter (process string) "From PROCESS process output STRING." (helm-output-filter-1 (assoc process helm-async-processes) string)) @@ -2116,7 +2125,7 @@ after the source name by overlay." (delete-process process)) -;; (@* "Core: action") +;; Core: action (defun helm-execute-selection-action (&optional selection action preserve-saved-action) @@ -2192,7 +2201,7 @@ If action buffer is selected, back to the helm buffer." (helm-initialize-overlays helm-action-buffer))) -;; (@* "Core: selection") +;; Core: selection (defun helm-move-selection-common (move-func unit direction) "Move the selection marker to a new position wit function MOVE-FUNC. It is determined by UNIT and DIRECTION." @@ -2511,7 +2520,7 @@ If action buffer is displayed, kill it." (get-text-property (point-at-bol) 'helm-candidate-separator)) -;; (@* "Core: help") +;; Core: help (defun helm-help-internal (bufname insert-content-fn) "Show long message during `helm' session in BUFNAME. INSERT-CONTENT-FN is the text to be displayed in BUFNAME." @@ -2565,7 +2574,7 @@ to a list of forms.\n\n") (message "Calculating all helm-related values...Done")) -;; (@* "Core: misc") +;; Core: misc (defun helm-kill-buffer-hook () "Remove tick entry from `helm-tick-hash' when killing a buffer." (loop for key being the hash-keys in helm-tick-hash @@ -2654,7 +2663,7 @@ if optional NOUPDATE is non-nil, helm buffer is not changed." ;;; Plugins ;; -;; (@* "Built-in plug-in: type") +;; Built-in plug-in: type (defun helm-compile-source--type (source) (helm-aif (assoc-default 'type source) (append source (assoc-default it helm-type-attributes) nil) @@ -2681,7 +2690,7 @@ if optional NOUPDATE is non-nil, helm buffer is not changed." (mapconcat (lambda (sym) (get sym 'helm-typeattrdoc)) helm-types "\n"))))) -;; (@* "Built-in plug-in: dummy") +;; Built-in plug-in: dummy (defun helm-dummy-candidate (candidate source) "Use `helm-pattern' as CANDIDATE in SOURCE." ;; `source' is defined in filtered-candidate-transformer @@ -2698,7 +2707,7 @@ if optional NOUPDATE is non-nil, helm buffer is not changed." (volatile))) source)) -;; (@* "Built-in plug-in: disable-shortcuts") +;; Built-in plug-in: disable-shortcuts (defvar helm-orig-enable-shortcuts nil) (defun helm-save-enable-shortcuts () (helm-once @@ -2718,7 +2727,7 @@ if optional NOUPDATE is non-nil, helm buffer is not changed." source) source)) -;; (@* "Built-in plug-in: candidates-in-buffer") +;; Built-in plug-in: candidates-in-buffer (defun helm-candidates-in-buffer () "Get candidates from the candidates buffer according to `helm-pattern'. @@ -2932,7 +2941,7 @@ Acceptable values of CREATE-OR-BUFFER: source)) -;; (@* "Utility: resplit helm window") +;; Utility: resplit helm window (defun helm-toggle-resplit-window () "Toggle resplit helm window, vertically or horizontally." (interactive) @@ -2948,7 +2957,7 @@ Acceptable values of CREATE-OR-BUFFER: (split-window-horizontally))) helm-buffer)))) -;; (@* "Utility: Resize helm window.") +;; Utility: Resize helm window. (defun helm-enlarge-window-1 (n) "Enlarge or narrow helm window. If N is positive enlarge, if negative narrow." @@ -2967,7 +2976,7 @@ If N is positive enlarge, if negative narrow." (interactive) (helm-enlarge-window-1 1)) -;; (@* "Utility: select another action by key") +;; Utility: select another action by key (defun helm-select-nth-action (n) "Select the N nth action for the currently selected candidate." (setq helm-saved-selection (helm-get-selection)) @@ -3011,7 +3020,7 @@ Otherwise goto the end of minibuffer." (helm-select-nth-action 1) (end-of-line))) -;; (@* "Utility: Persistent Action") +;; Utility: Persistent Action (defmacro with-helm-display-same-window (&rest body) "Execute BODY in the window used for persistent action. Make `pop-to-buffer' and `display-buffer' display in the same window." @@ -3103,18 +3112,7 @@ second argument of `display-buffer'." (helm-scroll-other-window-base 'scroll-down)) -;; (@* "Utility: Visible Mark") -(defface helm-visible-mark - '((((min-colors 88) (background dark)) - (:background "green1" :foreground "black")) - (((background dark)) (:background "green" :foreground "black")) - (((min-colors 88)) (:background "green1")) - (t (:background "green"))) - "Face for visible mark." - :group 'helm) - -(defvar helm-visible-mark-face 'helm-visible-mark) -(defvar helm-visible-mark-overlays nil) +;; Utility: Visible Mark (defun helm-clear-visible-mark () (with-current-buffer (helm-buffer-get) @@ -3141,7 +3139,7 @@ second argument of `display-buffer'." (defun helm-make-visible-mark () (let ((o (make-overlay (point-at-bol) (1+ (point-at-eol))))) - (overlay-put o 'face helm-visible-mark-face) + (overlay-put o 'face 'helm-visible-mark) (overlay-put o 'source (assoc-default 'name (helm-get-current-source))) (overlay-put o 'string (buffer-substring (overlay-start o) (overlay-end o))) (overlay-put o 'real (helm-get-selection)) @@ -3314,7 +3312,7 @@ If PREV is non-nil move to precedent." (interactive) (helm-next-visible-mark t)) -;; (@* "Utility: Selection Paste") +;; Utility: Selection Paste (defun helm-yank-selection () "Set minibuffer contents to current selection." (interactive) @@ -3331,7 +3329,7 @@ You can paste it by typing \\[yank]." (helm-get-selection nil t))) -;; (@* "Utility: Automatical execution of persistent-action") +;; Utility: Automatical execution of persistent-action (add-to-list 'minor-mode-alist '(helm-follow-mode " AFollow")) (defun helm-follow-mode () "If this mode is on, persistent action is executed everytime the cursor is moved." @@ -3355,42 +3353,7 @@ This happen after `helm-input-idle-delay' secs." (helm-execute-persistent-action)))) -;; (@* "Utility: Migrate `helm-sources' to my-helm command") -(defun helm-migrate-sources () - "Help to migrate to new `helm' way." - (interactive) - (with-current-buffer (get-buffer-create "*helm migrate*") - (erase-buffer) - (insert (format "\ -Setting `helm-sources' directly is not good because -`helm' is not for one command. For now, interactive use of -`helm' (M-x helm) is only for demonstration purpose. -So you should define commands calling `helm'. -I help you to migrate to the new way. - -The code below is automatically generated from current -`helm-sources' value. You can use the `my-helm' command -now! - -Copy and paste it to your .emacs. Then substitute `my-helm' -for `helm' bindings in all `define-key', `local-set-key' and -`global-set-key' calls. - -\(defun my-helm () - \"Helm command for you. - -It is automatically generated by `helm-migrate-sources'.\" - (interactive) - (helm-other-buffer - '%S - \"*my-helm*\")) -" helm-sources)) - (eval-last-sexp nil) - (substitute-key-definition 'helm 'my-helm global-map) - (pop-to-buffer (current-buffer)))) - - -;; (@* "Compatibility") +;; Compatibility ;; Copied assoc-default from XEmacs version 21.5.12 (unless (fboundp 'assoc-default) @@ -3441,7 +3404,7 @@ buffer as BUFFER." (buffer-modified-tick))))) -;; (@* "CUA workaround") +;; CUA workaround (defadvice cua-delete-region (around helm-avoid-cua activate) (ignore-errors ad-do-it)) @@ -3450,7 +3413,7 @@ buffer as BUFFER." (ignore-errors ad-do-it) ad-do-it)) -;;(@* "Attribute Documentation") +;; Attribute Documentation (defun helm-describe-helm-attribute (helm-attribute) "Display the full documentation of HELM-ATTRIBUTE. HELM-ATTRIBUTE should be a symbol." @@ -3785,7 +3748,7 @@ HELM-ATTRIBUTE should be a symbol." If not present, `helm-help-message' value will be used.") -;; (@* "Bug Report") +;; Bug Report (defvar helm-maintainer-mail-address "emacs-helm@googlegroups.com") (defvar helm-bug-report-salutation @@ -3865,7 +3828,7 @@ Given pseudo `helm-sources' and `helm-pattern', returns list like (helm-cleanup)))) -;; (@* "Unit Tests") +;; Unit Tests ;; See developer-tools/unit-test-helm.el (provide 'helm) @@ -3874,7 +3837,6 @@ Given pseudo `helm-sources' and `helm-pattern', returns list like ;; coding: utf-8 ;; indent-tabs-mode: nil ;; byte-compile-dynamic: t -;; generated-autoload-file: "helm-config.el" ;; End: ;;; helm.el ends here |