summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThierry Volpiatto <thierry.volpiatto@gmail.com>2012-04-02 16:57:27 +0200
committerThierry Volpiatto <thierry.volpiatto@gmail.com>2012-04-02 16:57:27 +0200
commit207fb36f04afd9f794b950ab4ee74e4e45867db7 (patch)
tree644f4e3931241b70d95acf6d1b08bb7b91431505
parent8d65d4247ebd830d2573bdc523d83bb3626b8a81 (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.
-rw-r--r--helm-adaptative.el1
-rw-r--r--helm-apt.el1
-rw-r--r--helm-bbdb.el1
-rw-r--r--helm-bmkext.el1
-rw-r--r--helm-bookmark.el14
-rw-r--r--helm-buffers.el1
-rw-r--r--helm-call-tree.el1
-rw-r--r--helm-color.el1
-rw-r--r--helm-command.el1
-rw-r--r--helm-config.el95
-rw-r--r--helm-elisp.el1
-rw-r--r--helm-elscreen.el1
-rw-r--r--helm-emms.el1
-rw-r--r--helm-eshell.el1
-rw-r--r--helm-eval.el1
-rw-r--r--helm-external.el1
-rw-r--r--helm-files.el1
-rw-r--r--helm-firefox.el1
-rw-r--r--helm-font.el1
-rw-r--r--helm-gentoo.el1
-rw-r--r--helm-grep.el1
-rw-r--r--helm-help.el1
-rw-r--r--helm-imenu.el1
-rw-r--r--helm-info.el1
-rw-r--r--helm-locate.el1
-rw-r--r--helm-man.el1
-rw-r--r--helm-match-plugin.el1
-rw-r--r--helm-misc.el3
-rw-r--r--helm-mode.el1
-rw-r--r--helm-net.el1
-rw-r--r--helm-org.el1
-rw-r--r--helm-plugin.el1
-rw-r--r--helm-regexp.el1
-rw-r--r--helm-ring.el1
-rw-r--r--helm-sys.el1
-rw-r--r--helm-tags.el1
-rw-r--r--helm-utils.el1
-rw-r--r--helm-w3m.el1
-rw-r--r--helm-yaoddmuse.el1
-rw-r--r--helm.el192
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
diff --git a/helm.el b/helm.el
index 2934a579..22c0d5a1 100644
--- a/helm.el
+++ b/helm.el
@@ -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