Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Replace "helm-c-" prefix by "helm-" in all files.

  • Loading branch information...
commit 4166d8a3d90f944c586dcac9451d19960a08b6b5 1 parent a30633a
@thierryvolpiatto thierryvolpiatto authored
Showing with 1,541 additions and 1,541 deletions.
  1. +42 −42 helm-adaptative.el
  2. +53 −53 helm-apt.el
  3. +20 −20 helm-bbdb.el
  4. +69 −69 helm-bmkext.el
  5. +38 −38 helm-bookmark.el
  6. +63 −63 helm-buffers.el
  7. +35 −35 helm-call-tree.el
  8. +10 −10 helm-color.el
  9. +1 −1  helm-command.el
  10. +99 −99 helm-config.el
  11. +75 −75 helm-elisp.el
  12. +2 −2 helm-elscreen.el
  13. +14 −14 helm-emms.el
  14. +5 −5 helm-eshell.el
  15. +13 −13 helm-eval.el
  16. +28 −28 helm-external.el
  17. +173 −173 helm-files.el
  18. +14 −14 helm-firefox.el
  19. +42 −42 helm-font.el
  20. +59 −59 helm-gentoo.el
  21. +156 −156 helm-grep.el
  22. +59 −59 helm-help.el
  23. +30 −30 helm-imenu.el
  24. +23 −23 helm-info.el
  25. +18 −18 helm-locate.el
  26. +9 −9 helm-man.el
  27. +44 −44 helm-misc.el
  28. +10 −10 helm-mode.el
  29. +44 −44 helm-net.el
  30. +20 −20 helm-org.el
  31. +16 −16 helm-plugin.el
  32. +60 −60 helm-regexp.el
  33. +35 −35 helm-ring.el
  34. +4 −4 helm-semantic.el
  35. +26 −26 helm-sys.el
  36. +49 −49 helm-tags.el
  37. +36 −36 helm-utils.el
  38. +23 −23 helm-w3m.el
  39. +15 −15 helm-yaoddmuse.el
  40. +9 −9 helm.el
View
84 helm-adaptative.el
@@ -28,29 +28,29 @@
"Adaptative sorting of candidates for Helm."
:group 'helm)
-(defcustom helm-c-adaptive-history-file
- "~/.emacs.d/helm-c-adaptive-history"
+(defcustom helm-adaptive-history-file
+ "~/.emacs.d/helm-adaptive-history"
"Path of file where history information is stored."
:type 'string
:group 'helm-adapt)
-(defcustom helm-c-adaptive-history-length 50
+(defcustom helm-adaptive-history-length 50
"Maximum number of candidates stored for a source."
:type 'number
:group 'helm-adapt)
;; Internal
-(defvar helm-c-adaptive-done nil
+(defvar helm-adaptive-done nil
"nil if history information is not yet stored for the current
selection.")
-(defvar helm-c-adaptive-history nil
+(defvar helm-adaptive-history nil
"Contains the stored history information.
Format: ((SOURCE-NAME (SELECTED-CANDIDATE (PATTERN . NUMBER-OF-USE) ...) ...) ...)")
(defun helm-adaptative-done-reset ()
- (setq helm-c-adaptive-done nil))
+ (setq helm-adaptive-done nil))
(define-minor-mode helm-adaptative-mode
"Toggle adaptative sorting in all sources."
@@ -62,12 +62,12 @@ Format: ((SOURCE-NAME (SELECTED-CANDIDATE (PATTERN . NUMBER-OF-USE) ...) ...) ..
;; Should run at beginning of `helm-initial-setup'.
(add-hook 'helm-before-initialize-hook 'helm-adaptative-done-reset)
;; Should run at beginning of `helm-exit-minibuffer'.
- (add-hook 'helm-before-action-hook 'helm-c-adaptive-store-selection)
+ (add-hook 'helm-before-action-hook 'helm-adaptive-store-selection)
;; Should run at beginning of `helm-select-action'.
- (add-hook 'helm-select-action-hook 'helm-c-adaptive-store-selection))
+ (add-hook 'helm-select-action-hook 'helm-adaptive-store-selection))
(remove-hook 'helm-before-initialize-hook 'helm-adaptative-done-reset)
- (remove-hook 'helm-before-action-hook 'helm-c-adaptive-store-selection)
- (remove-hook 'helm-select-action-hook 'helm-c-adaptive-store-selection)))
+ (remove-hook 'helm-before-action-hook 'helm-adaptive-store-selection)
+ (remove-hook 'helm-select-action-hook 'helm-adaptive-store-selection)))
(defun helm-adapt-use-adaptative-p (&optional source-name)
"Return current source only if it use adaptative history, nil otherwise."
@@ -82,21 +82,21 @@ Format: ((SOURCE-NAME (SELECTED-CANDIDATE (PATTERN . NUMBER-OF-USE) ...) ...) ..
(assoc-default 'filtered-candidate-transformer source)
(assoc-default 'candidate-transformer source))))
(if (listp adapt-source)
- (and (member 'helm-c-adaptive-sort adapt-source) source)
- (and (eq adapt-source 'helm-c-adaptive-sort) source)))))
+ (and (member 'helm-adaptive-sort adapt-source) source)
+ (and (eq adapt-source 'helm-adaptive-sort) source)))))
-(defun helm-c-adaptive-store-selection ()
+(defun helm-adaptive-store-selection ()
"Store history information for the selected candidate."
- (unless helm-c-adaptive-done
- (setq helm-c-adaptive-done t)
+ (unless helm-adaptive-done
+ (setq helm-adaptive-done t)
(let ((source (helm-adapt-use-adaptative-p)))
(when source
(let* ((source-name (or (assoc-default 'type source)
(assoc-default 'name source)))
- (source-info (or (assoc source-name helm-c-adaptive-history)
+ (source-info (or (assoc source-name helm-adaptive-history)
(progn
- (push (list source-name) helm-c-adaptive-history)
- (car helm-c-adaptive-history))))
+ (push (list source-name) helm-adaptive-history)
+ (car helm-adaptive-history))))
(selection (helm-get-selection))
(selection-info (progn
(setcdr source-info
@@ -136,40 +136,40 @@ Format: ((SOURCE-NAME (SELECTED-CANDIDATE (PATTERN . NUMBER-OF-USE) ...) ...) ..
(setcdr pattern-info (1+ (cdr pattern-info)))
;; truncate history if needed
- (if (> (length (cdr selection-info)) helm-c-adaptive-history-length)
+ (if (> (length (cdr selection-info)) helm-adaptive-history-length)
(setcdr selection-info
- (subseq (cdr selection-info) 0 helm-c-adaptive-history-length))))))))
+ (subseq (cdr selection-info) 0 helm-adaptive-history-length))))))))
-(defun helm-c-adaptative-maybe-load-history ()
+(defun helm-adaptative-maybe-load-history ()
(when (and helm-adaptative-mode
- (file-readable-p helm-c-adaptive-history-file))
- (load-file helm-c-adaptive-history-file)))
+ (file-readable-p helm-adaptive-history-file))
+ (load-file helm-adaptive-history-file)))
-(add-hook 'emacs-startup-hook 'helm-c-adaptative-maybe-load-history)
-(add-hook 'kill-emacs-hook 'helm-c-adaptive-save-history)
+(add-hook 'emacs-startup-hook 'helm-adaptative-maybe-load-history)
+(add-hook 'kill-emacs-hook 'helm-adaptive-save-history)
-(defun helm-c-adaptive-save-history (&optional arg)
- "Save history information to file given by `helm-c-adaptive-history-file'."
+(defun helm-adaptive-save-history (&optional arg)
+ "Save history information to file given by `helm-adaptive-history-file'."
(interactive "p")
(when helm-adaptative-mode
(with-temp-buffer
(insert
";; -*- mode: emacs-lisp -*-\n"
";; History entries used for helm adaptive display.\n")
- (prin1 `(setq helm-c-adaptive-history ',helm-c-adaptive-history)
+ (prin1 `(setq helm-adaptive-history ',helm-adaptive-history)
(current-buffer))
(insert ?\n)
- (write-region (point-min) (point-max) helm-c-adaptive-history-file nil
+ (write-region (point-min) (point-max) helm-adaptive-history-file nil
(unless arg 'quiet)))))
-(defun helm-c-adaptive-sort (candidates source)
+(defun helm-adaptive-sort (candidates source)
"Sort the CANDIDATES for SOURCE by usage frequency.
This is a filtered candidate transformer you can use for the
attribute `filtered-candidate-transformer' of a source in
`helm-sources' or a type in `helm-type-attributes'."
(let* ((source-name (or (assoc-default 'type source)
(assoc-default 'name source)))
- (source-info (assoc source-name helm-c-adaptive-history)))
+ (source-info (assoc source-name helm-adaptive-history)))
(if source-info
(let ((usage
;; ... assemble a list containing the (CANIDATE . USAGE-COUNT)
@@ -201,31 +201,31 @@ attribute `filtered-candidate-transformer' of a source in
;; put those candidates first which have the highest usage count
(dolist (info usage)
(when (member* (car info) candidates
- :test 'helm-c-adaptive-compare)
+ :test 'helm-adaptive-compare)
(push (car info) sorted)
(setq candidates (remove* (car info) candidates
- :test 'helm-c-adaptive-compare))))
+ :test 'helm-adaptive-compare))))
;; and append the rest
(append (reverse sorted) candidates nil))
(message "Your `%s' is maybe corrupted or too old, \
-you should reinitialize it with `helm-c-reset-adaptative-history'"
- helm-c-adaptive-history-file)
+you should reinitialize it with `helm-reset-adaptative-history'"
+ helm-adaptive-history-file)
(sit-for 1)
candidates))
;; if there is no information stored for this source then do nothing
candidates)))
;;;###autoload
-(defun helm-c-reset-adaptative-history ()
- "Delete all `helm-c-adaptive-history' and his file.
-Useful when you have a old or corrupted `helm-c-adaptive-history-file'."
+(defun helm-reset-adaptative-history ()
+ "Delete all `helm-adaptive-history' and his file.
+Useful when you have a old or corrupted `helm-adaptive-history-file'."
(interactive)
- (when (y-or-n-p "Really delete all your `helm-c-adaptive-history'? ")
- (setq helm-c-adaptive-history nil)
- (delete-file helm-c-adaptive-history-file)))
+ (when (y-or-n-p "Really delete all your `helm-adaptive-history'? ")
+ (setq helm-adaptive-history nil)
+ (delete-file helm-adaptive-history-file)))
-(defun helm-c-adaptive-compare (x y)
+(defun helm-adaptive-compare (x y)
"Compare candidates X and Y taking into account that the
candidate can be in (DISPLAY . REAL) format."
(equal (if (listp x)
View
106 helm-apt.el
@@ -43,112 +43,112 @@
:group 'helm-apt)
-(defvar helm-c-source-apt
+(defvar helm-source-apt
'((name . "APT")
- (init . helm-c-apt-init)
+ (init . helm-apt-init)
(candidates-in-buffer)
- (candidate-transformer helm-c-apt-candidate-transformer)
- (display-to-real . helm-c-apt-display-to-real)
+ (candidate-transformer helm-apt-candidate-transformer)
+ (display-to-real . helm-apt-display-to-real)
(requires-pattern . 2)
- (update . helm-c-apt-refresh)
+ (update . helm-apt-refresh)
(action
- ("Show package description" . helm-c-apt-cache-show)
- ("Install package" . helm-c-apt-install)
- ("Reinstall package" . helm-c-apt-reinstall)
- ("Remove package" . helm-c-apt-uninstall)
- ("Purge package" . helm-c-apt-purge))
- (persistent-action . helm-c-apt-persistent-action)
+ ("Show package description" . helm-apt-cache-show)
+ ("Install package" . helm-apt-install)
+ ("Reinstall package" . helm-apt-reinstall)
+ ("Remove package" . helm-apt-uninstall)
+ ("Purge package" . helm-apt-purge))
+ (persistent-action . helm-apt-persistent-action)
(persistent-help . "Show package description")))
-(defvar helm-c-apt-query "emacs")
-(defvar helm-c-apt-search-command "apt-cache search '%s'")
-(defvar helm-c-apt-show-command "apt-cache show '%s'")
-(defvar helm-c-apt-installed-packages nil)
-(defvar helm-c-apt-all-packages nil)
-(defvar helm-c-apt-input-history nil)
+(defvar helm-apt-query "emacs")
+(defvar helm-apt-search-command "apt-cache search '%s'")
+(defvar helm-apt-show-command "apt-cache show '%s'")
+(defvar helm-apt-installed-packages nil)
+(defvar helm-apt-all-packages nil)
+(defvar helm-apt-input-history nil)
-(defun helm-c-apt-refresh ()
+(defun helm-apt-refresh ()
"Refresh installed candidates list."
- (setq helm-c-apt-installed-packages nil)
- (setq helm-c-apt-all-packages nil))
+ (setq helm-apt-installed-packages nil)
+ (setq helm-apt-all-packages nil))
-(defun helm-c-apt-persistent-action (candidate)
+(defun helm-apt-persistent-action (candidate)
"Persistent action for APT source."
- (helm-c-apt-cache-show candidate))
+ (helm-apt-cache-show candidate))
-(defun helm-c-apt-candidate-transformer (candidates)
+(defun helm-apt-candidate-transformer (candidates)
"Show installed CANDIDATES and the ones to deinstall in a different color."
(loop for cand in candidates
- for name = (helm-c-apt-display-to-real cand)
+ for name = (helm-apt-display-to-real cand)
collect (cond ((string= (assoc-default
- name helm-c-apt-installed-packages)
+ name helm-apt-installed-packages)
"deinstall")
(propertize cand 'face 'helm-apt-deinstalled))
((string= (assoc-default
- name helm-c-apt-installed-packages)
+ name helm-apt-installed-packages)
"install")
(propertize cand 'face 'helm-apt-installed))
(t cand))))
-(defun helm-c-apt-init ()
+(defun helm-apt-init ()
"Initialize list of debian packages."
(let ((query ""))
- (unless (and helm-c-apt-installed-packages
- helm-c-apt-all-packages)
+ (unless (and helm-apt-installed-packages
+ helm-apt-all-packages)
(message "Loading package list...")
- (setq helm-c-apt-installed-packages
+ (setq helm-apt-installed-packages
(with-temp-buffer
(call-process-shell-command "dpkg --get-selections"
nil (current-buffer))
(loop for i in (split-string (buffer-string) "\n" t)
for p = (split-string i)
collect (cons (car p) (cadr p)))))
- (setq helm-c-apt-all-packages
+ (setq helm-apt-all-packages
(with-current-buffer
(helm-candidate-buffer
(get-buffer-create (format "*helm-apt*")))
(erase-buffer)
(call-process-shell-command
- (format helm-c-apt-search-command query)
+ (format helm-apt-search-command query)
nil (current-buffer))))
(message "Loading package list done")
(sit-for 0.5))))
-(defun helm-c-apt-display-to-real (line)
+(defun helm-apt-display-to-real (line)
"Return only name of a debian package.
LINE is displayed like:
package name - description."
(car (split-string line " - ")))
-(defun helm-c-shell-command-if-needed (command)
+(defun helm-shell-command-if-needed (command)
"Run shell command COMMAND to describe package.
If a buffer named COMMAND already exists, just switch to it."
(let ((buf (get-buffer command)))
- (helm-c-switch-to-buffer (get-buffer-create command))
+ (helm-switch-to-buffer (get-buffer-create command))
(unless buf (insert (shell-command-to-string command)))))
-(defun helm-c-apt-cache-show (package)
+(defun helm-apt-cache-show (package)
"Show information on apt package PACKAGE."
- (helm-c-shell-command-if-needed
- (format helm-c-apt-show-command package)))
+ (helm-shell-command-if-needed
+ (format helm-apt-show-command package)))
-(defun helm-c-apt-install (package)
+(defun helm-apt-install (package)
"Run 'apt-get install' shell command on PACKAGE."
- (helm-c-apt-generic-action :action 'install))
+ (helm-apt-generic-action :action 'install))
-(defun helm-c-apt-reinstall (package)
+(defun helm-apt-reinstall (package)
"Run 'apt-get install --reinstall' shell command on PACKAGE."
- (helm-c-apt-generic-action :action 'reinstall))
+ (helm-apt-generic-action :action 'reinstall))
-(defun helm-c-apt-uninstall (package)
+(defun helm-apt-uninstall (package)
"Run 'apt-get remove' shell command on PACKAGE."
- (helm-c-apt-generic-action :action 'uninstall))
+ (helm-apt-generic-action :action 'uninstall))
-(defun helm-c-apt-purge (package)
+(defun helm-apt-purge (package)
"Run 'apt-get purge' shell command on PACKAGE."
- (helm-c-apt-generic-action :action 'purge))
+ (helm-apt-generic-action :action 'purge))
-(defun* helm-c-apt-generic-action (&key action)
+(defun* helm-apt-generic-action (&key action)
"Run 'apt-get ACTION'.
Support install, remove and purge actions."
(ansi-term (getenv "SHELL") "helm apt")
@@ -168,8 +168,8 @@ Support install, remove and purge actions."
(setq end (point))
(if (y-or-n-p (format "%s package" (symbol-name action)))
(progn
- (setq helm-c-external-commands-list nil)
- (setq helm-c-apt-installed-packages nil)
+ (setq helm-external-commands-list nil)
+ (setq helm-apt-installed-packages nil)
(term-char-mode) (term-send-input))
(delete-region beg end) (term-send-eof) (kill-buffer))))
@@ -178,12 +178,12 @@ Support install, remove and purge actions."
"Preconfigured `helm' : frontend of APT package manager.
With a prefix arg reload cache."
(interactive "P")
- (let ((query (read-string "Search Package: " nil 'helm-c-apt-input-history)))
- (when arg (helm-c-apt-refresh))
- (helm :sources 'helm-c-source-apt
+ (let ((query (read-string "Search Package: " nil 'helm-apt-input-history)))
+ (when arg (helm-apt-refresh))
+ (helm :sources 'helm-source-apt
:prompt "Search Package: "
:input query
- :history 'helm-c-apt-input-history)))
+ :history 'helm-apt-input-history)))
(provide 'helm-apt)
View
40 helm-bbdb.el
@@ -38,7 +38,7 @@
"Commands and function for bbdb."
:group 'helm)
-(defun helm-c-bbdb-candidates ()
+(defun helm-bbdb-candidates ()
"Return a list of all names in the bbdb database.
The format is \"Firstname Lastname\"."
(mapcar (lambda (bbdb-record)
@@ -102,15 +102,15 @@ See docstring of `bbdb-create-internal' for more info on address entries."
do (setq loc-list (remove loc loc-list))
finally return address-list))
-(defun helm-c-bbdb-create-contact (actions candidate)
- "Action transformer for `helm-c-source-bbdb'.
+(defun helm-bbdb-create-contact (actions candidate)
+ "Action transformer for `helm-source-bbdb'.
Returns only an entry to add the current `helm-pattern' as new contact.
All other actions are removed."
(if (string= candidate "*Add to contacts*")
'(("Add to contacts"
. (lambda (actions)
(bbdb-create-internal
- (read-from-minibuffer "Name: " helm-c-bbdb-name)
+ (read-from-minibuffer "Name: " helm-bbdb-name)
(read-from-minibuffer "Company: ")
(helm-read-repeat-string "Email " t)
(helm-bbdb-read-address)
@@ -118,50 +118,50 @@ All other actions are removed."
(read-from-minibuffer "Note: ")))))
actions))
-(defun helm-c-bbdb-get-record (candidate)
+(defun helm-bbdb-get-record (candidate)
"Return record that match CANDIDATE."
(bbdb candidate nil)
(set-buffer "*BBDB*")
(bbdb-current-record))
-(defvar helm-c-bbdb-name nil
+(defvar helm-bbdb-name nil
"Only for internal use.")
-(defvar helm-c-source-bbdb
+(defvar helm-source-bbdb
'((name . "BBDB")
- (candidates . helm-c-bbdb-candidates)
- (action . (("Send a mail" . helm-c-bbdb-compose-mail)
- ("View person's data" . helm-c-bbdb-view-person-action)))
+ (candidates . helm-bbdb-candidates)
+ (action . (("Send a mail" . helm-bbdb-compose-mail)
+ ("View person's data" . helm-bbdb-view-person-action)))
(filtered-candidate-transformer . (lambda (candidates source)
- (setq helm-c-bbdb-name helm-pattern)
+ (setq helm-bbdb-name helm-pattern)
(if (not candidates)
(list "*Add to contacts*")
candidates)))
(action-transformer . (lambda (actions candidate)
- (helm-c-bbdb-create-contact actions candidate))))
+ (helm-bbdb-create-contact actions candidate))))
"Needs BBDB.
http://bbdb.sourceforge.net/")
-(defun helm-c-bbdb-view-person-action (candidate)
+(defun helm-bbdb-view-person-action (candidate)
"View BBDB data of single CANDIDATE or marked candidates."
(helm-aif (helm-marked-candidates)
(let ((bbdb-append-records (length it)))
(dolist (i it)
- (bbdb-redisplay-one-record (helm-c-bbdb-get-record i))))
- (bbdb-redisplay-one-record (helm-c-bbdb-get-record candidate))))
+ (bbdb-redisplay-one-record (helm-bbdb-get-record i))))
+ (bbdb-redisplay-one-record (helm-bbdb-get-record candidate))))
-(defun helm-c-bbdb-collect-mail-addresses ()
+(defun helm-bbdb-collect-mail-addresses ()
"Return a list of all mail addresses of records in bbdb buffer."
(with-current-buffer bbdb-buffer-name
(loop for i in bbdb-records
if (bbdb-record-net (car i))
collect (bbdb-dwim-net-address (car i)))))
-(defun helm-c-bbdb-compose-mail (candidate)
+(defun helm-bbdb-compose-mail (candidate)
"Compose a mail with all records of bbdb buffer."
- (helm-c-bbdb-view-person-action candidate)
- (let* ((address-list (helm-c-bbdb-collect-mail-addresses))
+ (helm-bbdb-view-person-action candidate)
+ (let* ((address-list (helm-bbdb-collect-mail-addresses))
(address-str (mapconcat 'identity address-list ",\n ")))
(compose-mail address-str)))
@@ -173,7 +173,7 @@ Needs BBDB.
http://bbdb.sourceforge.net/"
(interactive)
- (helm-other-buffer 'helm-c-source-bbdb "*helm bbdb*"))
+ (helm-other-buffer 'helm-source-bbdb "*helm bbdb*"))
(provide 'helm-bbdb)
View
138 helm-bmkext.el
@@ -28,7 +28,7 @@
;; Julien Danjou google-maps-el package available here:
;; http://julien.danjou.info/google-maps-el.html
-(defun helm-c-bmkext-filter-setup-alist (fn &rest args)
+(defun helm-bmkext-filter-setup-alist (fn &rest args)
"Return a filtered `bookmark-alist' sorted alphabetically."
(loop
with alist = (if args
@@ -40,22 +40,22 @@
finally return (sort sa 'string-lessp)))
;;;###autoload
-(defun helm-c-bmkext-run-edit ()
+(defun helm-bmkext-run-edit ()
"Run `bmkext-edit-bookmark' from keyboard."
(interactive)
- (helm-c-quit-and-execute-action 'bmkext-edit-bookmark))
+ (helm-quit-and-execute-action 'bmkext-edit-bookmark))
;;; Addressbook.
;;
;;
-(defvar helm-c-source-bmkext-addressbook
+(defvar helm-source-bmkext-addressbook
'((name . "Bookmark Addressbook")
(init . (lambda ()
(require 'bookmark-extensions)
(bookmark-maybe-load-default-file)
(helm-init-candidates-in-buffer
'global
- (helm-c-bmkext-addressbook-setup-alist))))
+ (helm-bmkext-addressbook-setup-alist))))
(candidates-in-buffer)
(persistent-action
. (lambda (candidate)
@@ -64,8 +64,8 @@
(bookmark--jump-via bmk 'pop-to-buffer))))
(persistent-help . "Show contact - Prefix with C-u to append")
(filtered-candidate-transformer
- helm-c-adaptive-sort
- helm-c-highlight-bookmark)
+ helm-adaptive-sort
+ helm-highlight-bookmark)
(action . (("Show Contact(s)"
. (lambda (candidate)
(let* ((contacts (helm-marked-candidates))
@@ -127,138 +127,138 @@
(addressbook-google-map full-bmk))))))))
-(defun helm-c-bmkext-addressbook-setup-alist ()
+(defun helm-bmkext-addressbook-setup-alist ()
"Specialized filter function for bookmarks w3m."
- (helm-c-bmkext-filter-setup-alist 'bmkext-addressbook-alist-only))
+ (helm-bmkext-filter-setup-alist 'bmkext-addressbook-alist-only))
;; W3m bookmarks from bookmark-extensions.
-(defvar helm-c-source-bookmark-w3m
+(defvar helm-source-bookmark-w3m
'((name . "Bookmark W3m")
(init . (lambda ()
(require 'bookmark-extensions)
(bookmark-maybe-load-default-file)
(helm-init-candidates-in-buffer
- 'global (helm-c-bookmark-w3m-setup-alist))))
+ 'global (helm-bookmark-w3m-setup-alist))))
(candidates-in-buffer)
(filtered-candidate-transformer
- helm-c-adaptive-sort
- helm-c-highlight-bookmark)
+ helm-adaptive-sort
+ helm-highlight-bookmark)
(type . bookmark)))
-(defun helm-c-bookmark-w3m-setup-alist ()
+(defun helm-bookmark-w3m-setup-alist ()
"Specialized filter function for bookmarks w3m."
- (helm-c-bmkext-filter-setup-alist 'bmkext-w3m-alist-only))
+ (helm-bmkext-filter-setup-alist 'bmkext-w3m-alist-only))
;; Images
-(defvar helm-c-source-bookmark-images
+(defvar helm-source-bookmark-images
'((name . "Bookmark Images")
(init . (lambda ()
(require 'bookmark-extensions)
(bookmark-maybe-load-default-file)
(helm-init-candidates-in-buffer
- 'global (helm-c-bookmark-images-setup-alist))))
+ 'global (helm-bookmark-images-setup-alist))))
(candidates-in-buffer)
(filtered-candidate-transformer
- helm-c-adaptive-sort
- helm-c-highlight-bookmark)
+ helm-adaptive-sort
+ helm-highlight-bookmark)
(type . bookmark)))
-(defun helm-c-bookmark-images-setup-alist ()
+(defun helm-bookmark-images-setup-alist ()
"Specialized filter function for images bookmarks."
- (helm-c-bmkext-filter-setup-alist 'bmkext-image-file-alist-only))
+ (helm-bmkext-filter-setup-alist 'bmkext-image-file-alist-only))
;; Woman Man
-(defvar helm-c-source-bookmark-man
+(defvar helm-source-bookmark-man
'((name . "Bookmark Woman&Man")
(init . (lambda ()
(require 'bookmark-extensions)
(bookmark-maybe-load-default-file)
(helm-init-candidates-in-buffer
- 'global (helm-c-bookmark-man-setup-alist))))
+ 'global (helm-bookmark-man-setup-alist))))
(candidates-in-buffer)
(filtered-candidate-transformer
- helm-c-adaptive-sort
- helm-c-highlight-bookmark)
+ helm-adaptive-sort
+ helm-highlight-bookmark)
(type . bookmark)))
-(defun helm-c-bookmark-man-setup-alist ()
+(defun helm-bookmark-man-setup-alist ()
"Specialized filter function for bookmarks w3m."
- (append (helm-c-bmkext-filter-setup-alist 'bmkext-man-alist-only)
- (helm-c-bmkext-filter-setup-alist 'bmkext-woman-alist-only)))
+ (append (helm-bmkext-filter-setup-alist 'bmkext-man-alist-only)
+ (helm-bmkext-filter-setup-alist 'bmkext-woman-alist-only)))
;; Gnus
-(defvar helm-c-source-bookmark-gnus
+(defvar helm-source-bookmark-gnus
'((name . "Bookmark Gnus")
(init . (lambda ()
(require 'bookmark-extensions)
(bookmark-maybe-load-default-file)
(helm-init-candidates-in-buffer
- 'global (helm-c-bookmark-gnus-setup-alist))))
+ 'global (helm-bookmark-gnus-setup-alist))))
(candidates-in-buffer)
(filtered-candidate-transformer
- helm-c-adaptive-sort
- helm-c-highlight-bookmark)
+ helm-adaptive-sort
+ helm-highlight-bookmark)
(type . bookmark)))
-(defun helm-c-bookmark-gnus-setup-alist ()
+(defun helm-bookmark-gnus-setup-alist ()
"Specialized filter function for bookmarks gnus."
- (helm-c-bmkext-filter-setup-alist 'bmkext-gnus-alist-only))
+ (helm-bmkext-filter-setup-alist 'bmkext-gnus-alist-only))
;; Info
-(defvar helm-c-source-bookmark-info
+(defvar helm-source-bookmark-info
'((name . "Bookmark Info")
(init . (lambda ()
(require 'bookmark-extensions)
(bookmark-maybe-load-default-file)
(helm-init-candidates-in-buffer
- 'global (helm-c-bookmark-info-setup-alist))))
+ 'global (helm-bookmark-info-setup-alist))))
(candidates-in-buffer)
(filtered-candidate-transformer
- helm-c-adaptive-sort
- helm-c-highlight-bookmark)
+ helm-adaptive-sort
+ helm-highlight-bookmark)
(type . bookmark)))
-(defun helm-c-bookmark-info-setup-alist ()
+(defun helm-bookmark-info-setup-alist ()
"Specialized filter function for bookmarks info."
- (helm-c-bmkext-filter-setup-alist 'bmkext-info-alist-only))
+ (helm-bmkext-filter-setup-alist 'bmkext-info-alist-only))
;; Local Files&directories
-(defvar helm-c-source-bookmark-files&dirs
+(defvar helm-source-bookmark-files&dirs
'((name . "Bookmark Files&Directories")
(init . (lambda ()
(require 'bookmark-extensions)
(bookmark-maybe-load-default-file)
(helm-init-candidates-in-buffer
- 'global (helm-c-bookmark-local-files-setup-alist))))
+ 'global (helm-bookmark-local-files-setup-alist))))
(candidates-in-buffer)
(filtered-candidate-transformer
- helm-c-adaptive-sort
- helm-c-highlight-bookmark)
+ helm-adaptive-sort
+ helm-highlight-bookmark)
(type . bookmark)))
-(defun helm-c-bookmark-local-files-setup-alist ()
+(defun helm-bookmark-local-files-setup-alist ()
"Specialized filter function for bookmarks locals files."
- (helm-c-bmkext-filter-setup-alist 'bmkext-local-file-alist-only))
+ (helm-bmkext-filter-setup-alist 'bmkext-local-file-alist-only))
;; Su Files&directories
-(defvar helm-c-source-bookmark-su-files&dirs
+(defvar helm-source-bookmark-su-files&dirs
'((name . "Bookmark Root-Files&Directories")
(init . (lambda ()
(require 'bookmark-extensions)
(bookmark-maybe-load-default-file)
(helm-init-candidates-in-buffer
- 'global (helm-c-bookmark-su-files-setup-alist))))
+ 'global (helm-bookmark-su-files-setup-alist))))
(candidates-in-buffer)
(filtered-candidate-transformer
- helm-c-adaptive-sort
- helm-c-highlight-bookmark-su)
+ helm-adaptive-sort
+ helm-highlight-bookmark-su)
(type . bookmark)))
-(defun helm-c-bookmark-su-files-setup-alist ()
+(defun helm-bookmark-su-files-setup-alist ()
"Specialized filter function for bookmarks su/sudo files."
(declare (special bmkext-su-or-sudo-regexp))
(loop
- with l = (helm-c-bmkext-filter-setup-alist 'bmkext-remote-file-alist-only)
+ with l = (helm-bmkext-filter-setup-alist 'bmkext-remote-file-alist-only)
for i in l
for isfile = (bookmark-get-filename i)
for istramp = (and isfile (boundp 'tramp-file-name-regexp)
@@ -270,21 +270,21 @@
collect i))
;; Ssh Files&directories
-(defvar helm-c-source-bookmark-ssh-files&dirs
+(defvar helm-source-bookmark-ssh-files&dirs
'((name . "Bookmark Ssh-Files&Directories")
(init . (lambda ()
(require 'bookmark-extensions)
(bookmark-maybe-load-default-file)
(helm-init-candidates-in-buffer
- 'global (helm-c-bookmark-ssh-files-setup-alist))))
+ 'global (helm-bookmark-ssh-files-setup-alist))))
(candidates-in-buffer)
- (filtered-candidate-transformer . helm-c-adaptive-sort)
+ (filtered-candidate-transformer . helm-adaptive-sort)
(type . bookmark)))
-(defun helm-c-bookmark-ssh-files-setup-alist ()
+(defun helm-bookmark-ssh-files-setup-alist ()
"Specialized filter function for bookmarks ssh files."
(loop
- with l = (helm-c-bmkext-filter-setup-alist 'bmkext-remote-file-alist-only)
+ with l = (helm-bmkext-filter-setup-alist 'bmkext-remote-file-alist-only)
for i in l
for isfile = (bookmark-get-filename i)
for istramp = (and isfile (boundp 'tramp-file-name-regexp)
@@ -300,21 +300,21 @@
"Preconfigured `helm' for bookmark-extensions sources.
Needs bookmark-ext.el:
<http://mercurial.intuxication.org/hg/emacs-bookmark-extension>.
-Contain also `helm-c-source-google-suggest'."
+Contain also `helm-source-google-suggest'."
(interactive)
(helm
:sources
- '(helm-c-source-bookmark-files&dirs
- helm-c-source-bookmark-w3m
- helm-c-source-google-suggest
- helm-c-source-bmkext-addressbook
- helm-c-source-bookmark-gnus
- helm-c-source-bookmark-info
- helm-c-source-bookmark-man
- helm-c-source-bookmark-images
- helm-c-source-bookmark-su-files&dirs
- helm-c-source-bookmark-ssh-files&dirs
- helm-c-source-bookmark-set)
+ '(helm-source-bookmark-files&dirs
+ helm-source-bookmark-w3m
+ helm-source-google-suggest
+ helm-source-bmkext-addressbook
+ helm-source-bookmark-gnus
+ helm-source-bookmark-info
+ helm-source-bookmark-man
+ helm-source-bookmark-images
+ helm-source-bookmark-su-files&dirs
+ helm-source-bookmark-ssh-files&dirs
+ helm-source-bookmark-set)
:prompt "SearchBookmark: "
:buffer "*helm bmkext*"
:default (buffer-name helm-current-buffer)))
View
76 helm-bookmark.el
@@ -64,18 +64,18 @@
:group 'helm-bookmark)
-(defvar helm-c-bookmark-map
+(defvar helm-bookmark-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "C-c o") 'helm-c-bookmark-run-jump-other-window)
- (define-key map (kbd "C-d") 'helm-c-bookmark-run-delete)
+ (define-key map (kbd "C-c o") 'helm-bookmark-run-jump-other-window)
+ (define-key map (kbd "C-d") 'helm-bookmark-run-delete)
(when (locate-library "bookmark-extensions")
- (define-key map (kbd "M-e") 'helm-c-bmkext-run-edit))
- (define-key map (kbd "C-c ?") 'helm-c-bookmark-help)
+ (define-key map (kbd "M-e") 'helm-bmkext-run-edit))
+ (define-key map (kbd "C-c ?") 'helm-bookmark-help)
(delq nil map))
"Generic Keymap for emacs bookmark sources.")
-(defvar helm-c-source-bookmarks
+(defvar helm-source-bookmarks
`((name . "Bookmarks")
(init . (lambda ()
(require 'bookmark)
@@ -87,7 +87,7 @@
"See (info \"(emacs)Bookmarks\").")
;;; bookmark-set
-(defvar helm-c-source-bookmark-set
+(defvar helm-source-bookmark-set
'((name . "Set Bookmark")
(dummy)
(no-delay-on-input)
@@ -95,44 +95,44 @@
"See (info \"(emacs)Bookmarks\").")
;;; Special bookmarks
-(defvar helm-c-source-bookmarks-ssh
+(defvar helm-source-bookmarks-ssh
'((name . "Bookmarks-ssh")
(init . (lambda ()
(require 'bookmark)
(helm-init-candidates-in-buffer
- 'global (helm-c-collect-bookmarks :ssh t))))
+ 'global (helm-collect-bookmarks :ssh t))))
(candidates-in-buffer)
(no-delay-on-input)
(type . bookmark))
"See (info \"(emacs)Bookmarks\").")
-(defvar helm-c-source-bookmarks-su
+(defvar helm-source-bookmarks-su
'((name . "Bookmarks-root")
(init . (lambda ()
(require 'bookmark)
(helm-init-candidates-in-buffer
- 'global (helm-c-collect-bookmarks :su t))))
+ 'global (helm-collect-bookmarks :su t))))
(candidates-in-buffer)
(no-delay-on-input)
- (filtered-candidate-transformer . helm-c-highlight-bookmark-su)
+ (filtered-candidate-transformer . helm-highlight-bookmark-su)
(type . bookmark))
"See (info \"(emacs)Bookmarks\").")
-(defvar helm-c-source-bookmarks-local
+(defvar helm-source-bookmarks-local
'((name . "Bookmarks-Local")
(init . (lambda ()
(require 'bookmark)
(helm-init-candidates-in-buffer
- 'global (helm-c-collect-bookmarks :local t))))
+ 'global (helm-collect-bookmarks :local t))))
(candidates-in-buffer)
(filtered-candidate-transformer
- helm-c-adaptive-sort
- helm-c-highlight-bookmark)
+ helm-adaptive-sort
+ helm-highlight-bookmark)
(no-delay-on-input)
(type . bookmark))
"See (info \"(emacs)Bookmarks\").")
-(defun* helm-c-collect-bookmarks (&key local su sudo ssh)
+(defun* helm-collect-bookmarks (&key local su sudo ssh)
(let* ((lis-all (bookmark-all-names))
(lis-loc (cond (local (loop for i in lis-all
unless (string-match "^(ssh)\\|^(su)" i)
@@ -148,22 +148,22 @@
collect i)))))
(sort lis-loc 'string-lessp)))
-(defun helm-c-bookmark-root-logged-p ()
+(defun helm-bookmark-root-logged-p ()
(catch 'break
(dolist (i (mapcar #'buffer-name (buffer-list)))
(when (string-match (format "*tramp/%s ." helm-su-or-sudo) i)
(throw 'break t)))))
-(defun helm-c-highlight-bookmark-su (files source)
- (if (helm-c-bookmark-root-logged-p)
- (helm-c-highlight-bookmark files source)
- (helm-c-highlight-not-logged files source)))
+(defun helm-highlight-bookmark-su (files source)
+ (if (helm-bookmark-root-logged-p)
+ (helm-highlight-bookmark files source)
+ (helm-highlight-not-logged files source)))
-(defun helm-c-highlight-not-logged (files source)
+(defun helm-highlight-not-logged (files source)
(loop for i in files
collect (propertize i 'face 'helm-bookmarks-su)))
-(defun helm-c-highlight-bookmark (bookmarks source)
+(defun helm-highlight-bookmark (bookmarks source)
"Used as `candidate-transformer' to colorize bookmarks.
Work both with standard Emacs bookmarks and bookmark-extensions.el."
(let ((non-essential t))
@@ -218,7 +218,7 @@ Work both with standard Emacs bookmarks and bookmark-extensions.el."
t
(propertize i 'face 'helm-bookmark-file 'help-echo isfile))))))
-(defun helm-c-bookmark-jump (candidate)
+(defun helm-bookmark-jump (candidate)
"Jump to bookmark from keyboard."
(let ((current-prefix-arg helm-current-prefix-arg))
(bookmark-jump candidate)))
@@ -226,7 +226,7 @@ Work both with standard Emacs bookmarks and bookmark-extensions.el."
(define-helm-type-attribute 'bookmark
`((coerce . helm-bookmark-get-bookmark-from-name)
(action
- ("Jump to bookmark" . helm-c-bookmark-jump)
+ ("Jump to bookmark" . helm-bookmark-jump)
("Jump to BM other window" . bookmark-jump-other-window)
("Bookmark edit annotation" . bookmark-edit-annotation)
("Bookmark show annotation" . bookmark-show-annotation)
@@ -235,22 +235,22 @@ Work both with standard Emacs bookmarks and bookmark-extensions.el."
`(("Edit Bookmark" . bmkext-edit-bookmark)))
("Rename bookmark" . bookmark-rename)
("Relocate bookmark" . bookmark-relocate))
- (keymap . ,helm-c-bookmark-map)
+ (keymap . ,helm-bookmark-map)
(mode-line . helm-bookmark-mode-line-string))
"Bookmark name.")
;;;###autoload
-(defun helm-c-bookmark-run-jump-other-window ()
+(defun helm-bookmark-run-jump-other-window ()
"Jump to bookmark from keyboard."
(interactive)
- (helm-c-quit-and-execute-action 'bookmark-jump-other-window))
+ (helm-quit-and-execute-action 'bookmark-jump-other-window))
;;;###autoload
-(defun helm-c-bookmark-run-delete ()
+(defun helm-bookmark-run-delete ()
"Delete bookmark from keyboard."
(interactive)
(when (y-or-n-p "Delete bookmark?")
- (helm-c-quit-and-execute-action 'helm-delete-marked-bookmarks)))
+ (helm-quit-and-execute-action 'helm-delete-marked-bookmarks)))
(defun helm-bookmark-get-bookmark-from-name (bmk)
"Return bookmark name even if it is a bookmark with annotation.
@@ -273,19 +273,19 @@ Return nil if bmk is not a valid bookmark."
(defun helm-bookmarks ()
"Preconfigured `helm' for bookmarks."
(interactive)
- (helm :sources '(helm-c-source-bookmarks
- helm-c-source-bookmark-set)
+ (helm :sources '(helm-source-bookmarks
+ helm-source-bookmark-set)
:buffer "*helm bookmarks*"
:default (buffer-name helm-current-buffer)))
;;;###autoload
-(defun helm-c-pp-bookmarks ()
+(defun helm-pp-bookmarks ()
"Preconfigured `helm' for bookmarks (pretty-printed)."
(interactive)
- (helm :sources '(helm-c-source-bookmarks-local
- helm-c-source-bookmarks-su
- helm-c-source-bookmarks-ssh
- helm-c-source-bookmark-set)
+ (helm :sources '(helm-source-bookmarks-local
+ helm-source-bookmarks-su
+ helm-source-bookmarks-ssh
+ helm-source-bookmark-set)
:buffer "*helm pp bookmarks*"
:default (buffer-name helm-current-buffer)))
View
126 helm-buffers.el
@@ -30,12 +30,12 @@
"Buffers related Applications and libraries for Helm."
:group 'helm)
-(defcustom helm-c-boring-buffer-regexp-list
+(defcustom helm-boring-buffer-regexp-list
'("\\` " "\\*helm" "\\*helm-mode" "\\*Echo Area" "\\*Minibuf")
"The regexp list that match boring buffers.
Buffer candidates matching these regular expression will be
filtered from the list of candidates if the
-`helm-c-skip-boring-buffers' candidate transformer is used."
+`helm-skip-boring-buffers' candidate transformer is used."
:type '(repeat (choice regexp))
:group 'helm-buffers)
@@ -74,10 +74,10 @@ filtered from the list of candidates if the
;;; Buffers keymap
;;
-(defvar helm-c-buffer-map
+(defvar helm-buffer-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "C-c ?") 'helm-c-buffer-help)
+ (define-key map (kbd "C-c ?") 'helm-buffer-help)
;; No need to have separate command for grep and zgrep
;; as we don't use recursivity for buffers.
;; So use zgrep for both as it is capable to handle non--compressed files.
@@ -113,23 +113,23 @@ filtered from the list of candidates if the
map))
(defvar helm-buffers-list-cache nil)
-(defvar helm-c-source-buffers-list
+(defvar helm-source-buffers-list
`((name . "Buffers")
(init . (lambda ()
;; Issue #51 Create the list before `helm-buffer' creation.
- (setq helm-buffers-list-cache (helm-c-buffer-list))))
+ (setq helm-buffers-list-cache (helm-buffer-list))))
(candidates . helm-buffers-list-cache)
(type . buffer)
- (match helm-c-buffer-match-major-mode)
- (persistent-action . helm-c-buffers-list-persistent-action)
- (keymap . ,helm-c-buffer-map)
+ (match helm-buffer-match-major-mode)
+ (persistent-action . helm-buffers-list-persistent-action)
+ (keymap . ,helm-buffer-map)
(volatile)
(no-delay-on-input)
(mode-line . helm-buffer-mode-line-string)
(persistent-help
. "Show this buffer / C-u \\[helm-execute-persistent-action]: Kill this buffer")))
-(defvar helm-c-source-buffer-not-found
+(defvar helm-source-buffer-not-found
`((name . "Create buffer")
(dummy)
(keymap . ,helm-map)
@@ -142,9 +142,9 @@ filtered from the list of candidates if the
(if mjm
(with-current-buffer buffer (funcall mjm))
(set-buffer-major-mode buffer))
- (helm-c-switch-to-buffer buffer))))))
+ (helm-switch-to-buffer buffer))))))
-(defvar helm-c-source-ido-virtual-buffers
+(defvar helm-source-ido-virtual-buffers
`((name . "Ido virtual buffers")
(candidates . (lambda ()
(let (ido-temp-list
@@ -164,9 +164,9 @@ filtered from the list of candidates if the
("View file" . view-file)
("Delete file(s)" . helm-delete-marked-files)
("Open file externally (C-u to choose)"
- . helm-c-open-file-externally)))))
+ . helm-open-file-externally)))))
-(defun helm-c-buffer-list ()
+(defun helm-buffer-list ()
"Return the current list of buffers.
Currently visible buffers are put at the end of the list.
See `ido-make-buffer-list' for more infos."
@@ -185,7 +185,7 @@ See `ido-make-buffer-list' for more infos."
(- (position-bytes (point-max))
(position-bytes (point-min)))))))
-(defun helm-c-highlight-buffers (buffers sources)
+(defun helm-highlight-buffers (buffers sources)
"Transformer function to highlight BUFFERS list.
Should be called after others transformers i.e (boring buffers)."
(loop ;; length of last buffer size string.
@@ -268,7 +268,7 @@ Should be called after others transformers i.e (boring buffers)."
'help-echo i)
" " str-before-size size " " mode) i)))))
-(defun helm-c-buffer-match-major-mode (candidate)
+(defun helm-buffer-match-major-mode (candidate)
"Match maybe buffer by major-mode.
If you give a major-mode or partial major-mode,
it will list all buffers of this major-mode and/or buffers with name
@@ -310,7 +310,7 @@ with name matching pattern."
(re-search-forward str nil t))))
(t (string-match i candidate)))))
-(defun helm-c-buffer-query-replace-1 (&optional regexp-flag)
+(defun helm-buffer-query-replace-1 (&optional regexp-flag)
"Query replace in marked buffers.
If REGEXP-FLAG is given use `query-replace-regexp'."
(let ((fn (if regexp-flag 'query-replace-regexp 'query-replace))
@@ -323,7 +323,7 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
for buf in bufs
do
(save-window-excursion
- (helm-c-switch-to-buffer buf)
+ (helm-switch-to-buffer buf)
(save-excursion
(let ((case-fold-search t))
(goto-char (point-min))
@@ -331,11 +331,11 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
(apply fn (list (car replace) (cdr replace)))
(apply fn (list replace tostring)))))))))
-(defun helm-c-buffer-query-replace-regexp (candidate)
- (helm-c-buffer-query-replace-1 'regexp))
+(defun helm-buffer-query-replace-regexp (candidate)
+ (helm-buffer-query-replace-1 'regexp))
-(defun helm-c-buffer-query-replace (candidate)
- (helm-c-buffer-query-replace-1))
+(defun helm-buffer-query-replace (candidate)
+ (helm-buffer-query-replace-1))
(defun helm-buffer-toggle-diff (candidate)
"Toggle diff buffer CANDIDATE with it's file."
@@ -382,64 +382,64 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
;;;###autoload
(defun helm-buffer-run-kill-buffers ()
- "Run kill buffer action from `helm-c-source-buffers-list'."
+ "Run kill buffer action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'helm-kill-marked-buffers))
+ (helm-quit-and-execute-action 'helm-kill-marked-buffers))
;;;###autoload
(defun helm-buffer-run-grep ()
- "Run Grep action from `helm-c-source-buffers-list'."
+ "Run Grep action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'helm-c-grep-buffers))
+ (helm-quit-and-execute-action 'helm-grep-buffers))
;;;###autoload
(defun helm-buffer-run-zgrep ()
- "Run Grep action from `helm-c-source-buffers-list'."
+ "Run Grep action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'helm-c-zgrep-buffers))
+ (helm-quit-and-execute-action 'helm-zgrep-buffers))
;;;###autoload
(defun helm-buffer-run-query-replace-regexp ()
- "Run Query replace regexp action from `helm-c-source-buffers-list'."
+ "Run Query replace regexp action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'helm-c-buffer-query-replace-regexp))
+ (helm-quit-and-execute-action 'helm-buffer-query-replace-regexp))
;;;###autoload
(defun helm-buffer-run-query-replace ()
- "Run Query replace action from `helm-c-source-buffers-list'."
+ "Run Query replace action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'helm-c-buffer-query-replace))
+ (helm-quit-and-execute-action 'helm-buffer-query-replace))
;;;###autoload
(defun helm-buffer-switch-other-window ()
- "Run switch to other window action from `helm-c-source-buffers-list'."
+ "Run switch to other window action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'switch-to-buffer-other-window))
+ (helm-quit-and-execute-action 'switch-to-buffer-other-window))
;;;###autoload
(defun helm-buffer-switch-other-frame ()
- "Run switch to other frame action from `helm-c-source-buffers-list'."
+ "Run switch to other frame action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'switch-to-buffer-other-frame))
+ (helm-quit-and-execute-action 'switch-to-buffer-other-frame))
;;;###autoload
(defun helm-buffer-switch-to-elscreen ()
- "Run switch to elscreen action from `helm-c-source-buffers-list'."
+ "Run switch to elscreen action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'helm-find-buffer-on-elscreen))
+ (helm-quit-and-execute-action 'helm-find-buffer-on-elscreen))
;;;###autoload
(defun helm-buffer-run-ediff ()
- "Run ediff action from `helm-c-source-buffers-list'."
+ "Run ediff action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'helm-ediff-marked-buffers))
+ (helm-quit-and-execute-action 'helm-ediff-marked-buffers))
(defun helm-buffer-run-ediff-merge ()
- "Run ediff action from `helm-c-source-buffers-list'."
+ "Run ediff action from `helm-source-buffers-list'."
(interactive)
- (helm-c-quit-and-execute-action 'helm-ediff-marked-buffers-merge))
+ (helm-quit-and-execute-action 'helm-ediff-marked-buffers-merge))
-(defun helm-c-buffers-persistent-kill (buffer)
+(defun helm-buffers-persistent-kill (buffer)
"Persistent action to kill buffer."
(with-current-buffer (get-buffer buffer)
(if (and (buffer-modified-p)
@@ -453,10 +453,10 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
(helm-force-update)
(helm-next-source)))
-(defun helm-c-buffers-list-persistent-action (candidate)
+(defun helm-buffers-list-persistent-action (candidate)
(if current-prefix-arg
- (helm-c-buffers-persistent-kill candidate)
- (helm-c-switch-to-buffer candidate)))
+ (helm-buffers-persistent-kill candidate)
+ (helm-switch-to-buffer candidate)))
(defun helm-ediff-marked-buffers (candidate &optional merge)
"Ediff 2 marked buffers or CANDIDATE and `helm-current-buffer'.
@@ -484,7 +484,7 @@ See `helm-ediff-marked-buffers'."
(helm-ediff-marked-buffers candidate t))
(defun helm-multi-occur-as-action (_candidate)
- "Multi occur action for `helm-c-source-buffers-list'.
+ "Multi occur action for `helm-source-buffers-list'.
Can be used by any source that list buffers."
(let ((helm-moccur-always-search-in-current
(or helm-moccur-always-search-in-current
@@ -499,18 +499,18 @@ Can be used by any source that list buffers."
(defun helm-buffers-run-multi-occur ()
"Run `helm-multi-occur-as-action' by key."
(interactive)
- (helm-c-quit-and-execute-action 'helm-multi-occur-as-action))
+ (helm-quit-and-execute-action 'helm-multi-occur-as-action))
;;; Candidate Transformers
;;
;;
-(defun helm-c-skip-boring-buffers (buffers sources)
- (helm-skip-entries buffers helm-c-boring-buffer-regexp-list))
+(defun helm-skip-boring-buffers (buffers sources)
+ (helm-skip-entries buffers helm-boring-buffer-regexp-list))
-(defun helm-c-shadow-boring-buffers (buffers)
- "Buffers matching `helm-c-boring-buffer-regexp' will be
+(defun helm-shadow-boring-buffers (buffers)
+ "Buffers matching `helm-boring-buffer-regexp' will be
displayed with the `file-name-shadow' face if available."
- (helm-shadow-entries buffers helm-c-boring-buffer-regexp-list))
+ (helm-shadow-entries buffers helm-boring-buffer-regexp-list))
(defun helm-revert-buffer (candidate)
(with-current-buffer candidate
@@ -527,16 +527,16 @@ displayed with the `file-name-shadow' face if available."
(define-helm-type-attribute 'buffer
`((action
- ("Switch to buffer" . helm-c-switch-to-buffer)
+ ("Switch to buffer" . helm-switch-to-buffer)
,(and (locate-library "popwin") '("Switch to buffer in popup window" . popwin:popup-buffer))
("Switch to buffer other window" . switch-to-buffer-other-window)
("Switch to buffer other frame" . switch-to-buffer-other-frame)
,(and (locate-library "elscreen") '("Display buffer in Elscreen" . helm-find-buffer-on-elscreen))
- ("Query replace regexp" . helm-c-buffer-query-replace-regexp)
- ("Query replace" . helm-c-buffer-query-replace)
+ ("Query replace regexp" . helm-buffer-query-replace-regexp)
+ ("Query replace" . helm-buffer-query-replace)
("View buffer" . view-buffer)
("Display buffer" . display-buffer)
- ("Grep buffers (C-u grep all buffers)" . helm-c-zgrep-buffers)
+ ("Grep buffers (C-u grep all buffers)" . helm-zgrep-buffers)
("Multi occur buffer(s)" . helm-multi-occur-as-action)
("Revert buffer(s)" . helm-revert-marked-buffers)
("Insert buffer" . insert-buffer)
@@ -546,8 +546,8 @@ displayed with the `file-name-shadow' face if available."
("Ediff Merge marked buffers" . (lambda (candidate)
(helm-ediff-marked-buffers candidate t))))
(persistent-help . "Show this buffer")
- (filtered-candidate-transformer helm-c-skip-boring-buffers
- helm-c-highlight-buffers))
+ (filtered-candidate-transformer helm-skip-boring-buffers
+ helm-highlight-buffers))
"Buffer or buffer name.")
;;;###autoload
@@ -555,10 +555,10 @@ displayed with the `file-name-shadow' face if available."
"Preconfigured `helm' to list buffers.
It is an enhanced version of `helm-for-buffers'."
(interactive)
- (helm :sources '(helm-c-source-buffers-list
- helm-c-source-ido-virtual-buffers
- helm-c-source-buffer-not-found)
- :buffer "*helm buffers*" :keymap helm-c-buffer-map))
+ (helm :sources '(helm-source-buffers-list
+ helm-source-ido-virtual-buffers
+ helm-source-buffer-not-found)
+ :buffer "*helm buffers*" :keymap helm-buffer-map))
(provide 'helm-buffers)
View
70 helm-call-tree.el
@@ -25,30 +25,30 @@
(declare-function simple-call-tree-analyze "ext:simple-call-tree.el" (&optional test))
;; Function is called by
-(defvar helm-c-source-simple-call-tree-functions-callers
+(defvar helm-source-simple-call-tree-functions-callers
'((name . "Function is called by")
- (init . helm-c-simple-call-tree-functions-callers-init)
+ (init . helm-simple-call-tree-functions-callers-init)
(multiline)
- (candidates . helm-c-simple-call-tree-candidates)
- (persistent-action . helm-c-simple-call-tree-persistent-action)
+ (candidates . helm-simple-call-tree-candidates)
+ (persistent-action . helm-simple-call-tree-persistent-action)
(persistent-help . "Show function definitions by rotation")
(action ("Find definition selected by persistent-action" .
- helm-c-simple-call-tree-find-definition)))
+ helm-simple-call-tree-find-definition)))
"Needs simple-call-tree.el.
http://www.emacswiki.org/cgi-bin/wiki/download/simple-call-tree.el")
-(defvar helm-c-simple-call-tree-tick nil)
-(make-variable-buffer-local 'helm-c-simple-call-tree-tick)
-(defun helm-c-simple-call-tree-analyze-maybe ()
- (unless (eq (buffer-chars-modified-tick) helm-c-simple-call-tree-tick)
+(defvar helm-simple-call-tree-tick nil)
+(make-variable-buffer-local 'helm-simple-call-tree-tick)
+(defun helm-simple-call-tree-analyze-maybe ()
+ (unless (eq (buffer-chars-modified-tick) helm-simple-call-tree-tick)
(simple-call-tree-analyze)
- (setq helm-c-simple-call-tree-tick (buffer-chars-modified-tick))))
+ (setq helm-simple-call-tree-tick (buffer-chars-modified-tick))))
-(defun helm-c-simple-call-tree-init-base (function message)
+(defun helm-simple-call-tree-init-base (function message)
(require 'simple-call-tree)
(with-no-warnings
(when (helm-current-buffer-is-modified)
- (helm-c-simple-call-tree-analyze-maybe)
+ (helm-simple-call-tree-analyze-maybe)
(let ((list (funcall function simple-call-tree-alist)))
(with-current-buffer (helm-candidate-buffer 'local)
(dolist (entry list)
@@ -59,51 +59,51 @@ http://www.emacswiki.org/cgi-bin/wiki/download/simple-call-tree.el")
funcs)
"\n\n"))))))))
-(defun helm-c-simple-call-tree-functions-callers-init ()
- (helm-c-simple-call-tree-init-base 'simple-call-tree-invert
+(defun helm-simple-call-tree-functions-callers-init ()
+ (helm-simple-call-tree-init-base 'simple-call-tree-invert
" is called by\n"))
-(defun helm-c-simple-call-tree-candidates ()
+(defun helm-simple-call-tree-candidates ()
(with-current-buffer (helm-candidate-buffer)
(split-string (buffer-string) "\n\n")))
-(defvar helm-c-simple-call-tree-related-functions nil)
-(defvar helm-c-simple-call-tree-function-index 0)
-(defun helm-c-simple-call-tree-persistent-action (candidate)
+(defvar helm-simple-call-tree-related-functions nil)
+(defvar helm-simple-call-tree-function-index 0)
+(defun helm-simple-call-tree-persistent-action (candidate)
(unless (eq last-command 'helm-execute-persistent-action)
- (setq helm-c-simple-call-tree-related-functions
+ (setq helm-simple-call-tree-related-functions
(delete "no functions."
(split-string
(replace-regexp-in-string " \\| is called by\\| calls "
"" candidate)
"\n")))
- (setq helm-c-simple-call-tree-function-index -1))
- (incf helm-c-simple-call-tree-function-index)
- (helm-c-simple-call-tree-find-definition candidate))
+ (setq helm-simple-call-tree-function-index -1))
+ (incf helm-simple-call-tree-function-index)
+ (helm-simple-call-tree-find-definition candidate))
-(defun helm-c-simple-call-tree-find-definition (candidate)
+(defun helm-simple-call-tree-find-definition (candidate)
(find-function
(intern
- (nth (mod helm-c-simple-call-tree-function-index
- (length helm-c-simple-call-tree-related-functions))
- helm-c-simple-call-tree-related-functions))))
+ (nth (mod helm-simple-call-tree-function-index
+ (length helm-simple-call-tree-related-functions))
+ helm-simple-call-tree-related-functions))))
;;; Function calls
-(defvar helm-c-source-simple-call-tree-callers-functions
+(defvar helm-source-simple-call-tree-callers-functions
'((name . "Function calls")
- (init . helm-c-simple-call-tree-callers-functions-init)
+ (init . helm-simple-call-tree-callers-functions-init)
(multiline)
- (candidates . helm-c-simple-call-tree-candidates)
- (persistent-action . helm-c-simple-call-tree-persistent-action)
+ (candidates . helm-simple-call-tree-candidates)
+ (persistent-action . helm-simple-call-tree-persistent-action)
(persistent-help . "Show function definitions by rotation")
(action ("Find definition selected by persistent-action" .
- helm-c-simple-call-tree-find-definition)))
+ helm-simple-call-tree-find-definition)))
"Needs simple-call-tree.el.
http://www.emacswiki.org/cgi-bin/wiki/download/simple-call-tree.el")
-(defun helm-c-simple-call-tree-callers-functions-init ()
- (helm-c-simple-call-tree-init-base 'identity " calls \n"))
+(defun helm-simple-call-tree-callers-functions-init ()
+ (helm-simple-call-tree-init-base 'identity " calls \n"))
;;;###autoload
(defun helm-simple-call-tree ()
@@ -113,8 +113,8 @@ Needs simple-call-tree.el.
http://www.emacswiki.org/cgi-bin/wiki/download/simple-call-tree.el"
(interactive)
(helm-other-buffer
- '(helm-c-source-simple-call-tree-functions-callers
- helm-c-source-simple-call-tree-callers-functions)
+ '(helm-source-simple-call-tree-functions-callers
+ helm-source-simple-call-tree-callers-functions)
"*helm simple-call-tree*"))
(provide 'helm-call-tree)
View
20 helm-color.el
@@ -23,7 +23,7 @@
;;
;;
(defun helm-custom-faces-init ()
- "Initialize buffer for `helm-c-source-customize-face'."
+ "Initialize buffer for `helm-source-customize-face'."
(unless (helm-candidate-buffer)
(save-window-excursion
(list-faces-display)
@@ -36,7 +36,7 @@
(point-max))))
(kill-buffer "*Faces*")))
-(defvar helm-c-source-customize-face
+(defvar helm-source-customize-face
'((name . "Customize Face")
(init . helm-custom-faces-init)
(candidates-in-buffer)
@@ -63,24 +63,24 @@
(buffer-string)))
(kill-buffer "*Colors*")))
-(defvar helm-c-source-colors
+(defvar helm-source-colors
'((name . "Colors")
(init . helm-colors-init)
(candidates-in-buffer)
(get-line . buffer-substring)
(action
("Copy Name" . (lambda (candidate)
- (kill-new (helm-c-colors-get-name candidate))))
+ (kill-new (helm-colors-get-name candidate))))
("Copy RGB" . (lambda (candidate)
- (kill-new (helm-c-colors-get-rgb candidate))))
+ (kill-new (helm-colors-get-rgb candidate))))
("Insert Name" . (lambda (candidate)
(with-helm-current-buffer
- (insert (helm-c-colors-get-name candidate)))))
+ (insert (helm-colors-get-name candidate)))))
("Insert RGB" . (lambda (candidate)
(with-helm-current-buffer
- (insert (helm-c-colors-get-rgb candidate))))))))
+ (insert (helm-colors-get-rgb candidate))))))))
-(defun helm-c-colors-get-name (candidate)
+(defun helm-colors-get-name (candidate)
"Get color name."
(replace-regexp-in-string
" " ""
@@ -91,7 +91,7 @@
(delete-region (point) (point-max))
(buffer-string))))
-(defun helm-c-colors-get-rgb (candidate)
+(defun helm-colors-get-rgb (candidate)
"Get color RGB."
(replace-regexp-in-string
" " ""
@@ -107,7 +107,7 @@
"Preconfigured `helm' for color."
(interactive)
(helm-other-buffer
- '(helm-c-source-colors helm-c-source-customize-face)
+ '(helm-source-colors helm-source-customize-face)
"*helm colors*"))
(provide 'helm-color)
View
2  helm-command.el
@@ -125,7 +125,7 @@ It is `helm' replacement of regular `M-x' `execute-extended-command'."
(set-window-buffer (get-buffer-window hbuf)
helm-current-buffer))
(setq in-help nil))
- (helm-c-describe-function candidate)
+ (helm-describe-function candidate)
(setq in-help t))
(setq help-cand candidate)))))
(setq command (helm-comp-read
View
198 helm-config.el
@@ -70,8 +70,8 @@
;;
(defvar helm-command-map
(let ((map (make-sparse-keymap)))
- (define-key map (kbd "a") 'helm-c-apropos)
- (define-key map (kbd "e") 'helm-c-etags-select)
+ (define-key map (kbd "a") 'helm-apropos)
+ (define-key map (kbd "e") 'helm-etags-select)
(define-key map (kbd "l") 'helm-locate)
(define-key map (kbd "s") 'helm-surfraw)
(define-key map (kbd "r") 'helm-regexp)
@@ -84,7 +84,7 @@
(define-key map (kbd "i") 'helm-imenu)
(define-key map (kbd "<tab>") 'helm-lisp-completion-at-point)
(define-key map (kbd "p") 'helm-list-emacs-process)
- (define-key map (kbd "C-x r b") 'helm-c-pp-bookmarks)
+ (define-key map (kbd "C-x r b") 'helm-pp-bookmarks)
(define-key map (kbd "M-y") 'helm-show-kill-ring)
(define-key map (kbd "C-c <SPC>") 'helm-all-mark-rings)
(define-key map (kbd "C-x C-f") 'helm-find-files)
@@ -105,7 +105,7 @@
(define-key map (kbd "C-x C-b") 'helm-buffers-list)
(define-key map (kbd "C-c C-b") 'helm-browse-code)
(define-key map (kbd "C-x r i") 'helm-register)
- (define-key map (kbd "C-c C-x") 'helm-c-run-external-command)
+ (define-key map (kbd "C-c C-x") 'helm-run-external-command)
(define-key map (kbd "b") 'helm-resume)
map))
@@ -132,14 +132,14 @@
["Recent Files" helm-recentf t]
["Locate" helm-locate t]
["Search Files with find" helm-find t]
- ["Bookmarks" helm-c-pp-bookmarks t])
+ ["Bookmarks" helm-pp-bookmarks t])
("Buffers"
["Find buffers" helm-buffers-list t])
("Commands"
["Emacs Commands" helm-M-x t]
- ["Externals Commands" helm-c-run-external-command t])
+ ["Externals Commands" helm-run-external-command t])
("Help"
- ["Helm Apropos" helm-c-apropos t])
+ ["Helm Apropos" helm-apropos t])
("Info"
["Info at point" helm-info-at-point t]
["Emacs Manual index" helm-info-emacs t]
@@ -150,7 +150,7 @@
("Tools"
["Occur" helm-occur t]
["Grep" helm-do-grep t]
- ["Etags" helm-c-etags-select t]
+ ["Etags" helm-etags-select t]
["Lisp complete at point" helm-lisp-completion-at-point t]
["Browse Kill ring" helm-show-kill-ring t]
["Browse register" helm-register t]
@@ -183,7 +183,7 @@
;;; We don't want helm source variables to be saved across Emacs sessions.
(eval-after-load "session"
- '(push "\\`helm-c-source" session-globals-exclude))
+ '(push "\\`helm-source" session-globals-exclude))
;;; Fontlock
(dolist (mode '(emacs-lisp-mode lisp-interaction-mode))
@@ -501,13 +501,13 @@ Execute persistent action everytime the cursor is moved when enabled.
;;;***
-;;;### (autoloads (helm-c-reset-adaptative-history) "helm-adaptative"
+;;;### (autoloads (helm-reset-adaptative-history) "helm-adaptative"
;;;;;; "helm-adaptative.el" (20730 55660 76651 604000))
;;; Generated autoloads from helm-adaptative.el
-(autoload 'helm-c-reset-adaptative-history "helm-adaptative" "\
-Delete all `helm-c-adaptive-history' and his file.
-Useful when you have a old or corrupted `helm-c-adaptive-history-file'.
+(autoload 'helm-reset-adaptative-history "helm-adaptative" "\
+Delete all `helm-adaptive-history' and his file.
+Useful when you have a old or corrupted `helm-adaptive-history-file'.
\(fn)" t nil)
@@ -540,11 +540,11 @@ http://bbdb.sourceforge.net/
;;;***
-;;;### (autoloads (helm-bookmark-ext helm-c-bmkext-run-edit) "helm-bmkext"
+;;;### (autoloads (helm-bookmark-ext helm-bmkext-run-edit) "helm-bmkext"
;;;;;; "helm-bmkext.el" (20730 55660 76651 604000))
;;; Generated autoloads from helm-bmkext.el
-(autoload 'helm-c-bmkext-run-edit "helm-bmkext" "\
+(autoload 'helm-bmkext-run-edit "helm-bmkext" "\
Run `bmkext-edit-bookmark' from keyboard.
\(fn)" t nil)
@@ -553,23 +553,23 @@ Run `bmkext-edit-bookmark' from keyboard.
Preconfigured `helm' for bookmark-extensions sources.
Needs bookmark-ext.el:
<http://mercurial.intuxication.org/hg/emacs-bookmark-extension>.
-Contain also `helm-c-source-google-suggest'.
+Contain also `helm-source-google-suggest'.
\(fn)" t nil)
;;;***
-;;;### (autoloads (helm-c-pp-bookmarks helm-bookmarks helm-c-bookmark-run-delete
-;;;;;; helm-c-bookmark-run-jump-other-window) "helm-bookmark" "helm-bookmark.el"
+;;;### (autoloads (helm-pp-bookmarks helm-bookmarks helm-bookmark-run-delete
+;;;;;; helm-bookmark-run-jump-other-window) "helm-bookmark" "helm-bookmark.el"
;;;;;; (20730 55660 76651 604000))
;;; Generated autoloads from helm-bookmark.el
-(autoload 'helm-c-bookmark-run-jump-other-window "helm-bookmark" "\
+(autoload 'helm-bookmark-run-jump-other-window "helm-bookmark" "\
Jump to bookmark from keyboard.
\(fn)" t nil)
-(autoload 'helm-c-bookmark-run-delete "helm-bookmark" "\
+(autoload 'helm-bookmark-run-delete "helm-bookmark" "\
Delete bookmark from keyboard.
\(fn)" t nil)
@@ -579,7 +579,7 @@ Preconfigured `helm' for bookmarks.
\(fn)" t nil)
-(autoload 'helm-c-pp-bookmarks "helm-bookmark" "\
+(autoload 'helm-pp-bookmarks "helm-bookmark" "\
Preconfigured `helm' for bookmarks (pretty-printed).
\(fn)" t nil)
@@ -611,47 +611,47 @@ Save buffer without quitting helm.
\(fn)" t nil)
(autoload 'helm-buffer-run-kill-buffers "helm-buffers" "\
-Run kill buffer action from `helm-c-source-buffers-list'.
+Run kill buffer action from `helm-source-buffers-list'.
\(fn)" t nil)
(autoload 'helm-buffer-run-grep "helm-buffers" "\
-Run Grep action from `helm-c-source-buffers-list'.
+Run Grep action from `helm-source-buffers-list'.
\(fn)" t nil)
(autoload 'helm-buffer-run-zgrep "helm-buffers" "\
-Run Grep action from `helm-c-source-buffers-list'.
+Run Grep action from `helm-source-buffers-list'.
\(fn)" t nil)
(autoload 'helm-buffer-run-query-replace-regexp "helm-buffers" "\
-Run Query replace regexp action from `helm-c-source-buffers-list'.
+Run Query replace regexp action from `helm-source-buffers-list'.
\(fn)" t nil)
(autoload 'helm-buffer-run-query-replace "helm-buffers" "\
-Run Query replace action from `helm-c-source-buffers-list'.
+Run Query replace action from `helm-source-buffers-list'.
\(fn)" t nil)
(autoload 'helm-buffer-switch-other-window "helm-buffers" "\
-Run switch to other window action from `helm-c-source-buffers-list'.
+Run switch to other window action from `helm-source-buffers-list'.
\(fn)" t nil)
(autoload 'helm-buffer-switch-other-frame "helm-buffers" "\
-Run switch to other frame action from `helm-c-source-buffers-list'.
+Run switch to other frame action from `helm-source-buffers-list'.
\(fn)" t nil)
(autoload 'helm-buffer-switch-to-elscreen "helm-buffers" "\
-Run switch to elscreen action from `helm-c-source-buffers-list'.
+Run switch to elscreen action from `helm-source-buffers-list'.
\(fn)" t nil)
(autoload 'helm-buffer-run-ediff "helm-buffers" "\
-Run ediff action from `helm-c-source-buffers-list'.
+Run ediff action from `helm-source-buffers-list'.
\(fn)" t nil)
@@ -706,8 +706,8 @@ It is `helm' replacement of regular `M-x' `execute-extended-command'.
;;;***
;;;### (autoloads (helm-complex-command-history helm-timers helm-manage-advice
-;;;;;; helm-c-apropos helm-lisp-completion-or-file-name-at-point
-;;;;;; helm-lisp-indent helm-c-complete-file-name-at-point helm-lisp-completion-at-point)
+;;;;;; helm-apropos helm-lisp-completion-or-file-name-at-point
+;;;;;; helm-lisp-indent helm-complete-file-name-at-point helm-lisp-completion-at-point)
;;;;;; "helm-elisp" "helm-elisp.el" (20761 13636 359268 183000))
;;; Generated autoloads from helm-elisp.el
@@ -716,7 +716,7 @@ Helm lisp symbol completion at point.
\(fn)" t nil)
-(autoload 'helm-c-complete-file-name-at-point "helm-elisp" "\
+(autoload 'helm-complete-file-name-at-point "helm-elisp" "\
Complete file name at point.
\(fn &optional FORCE)" t nil)
@@ -732,7 +732,7 @@ Filename completion happen if string start after or between a double quote.
\(fn)" t nil)
-(autoload 'helm-c-apropos "helm-elisp" "\
+(autoload 'helm-apropos "helm-elisp" "\
Preconfigured helm to describe commands, functions, variables and faces.
\(fn)" t nil)
@@ -798,31 +798,31 @@ Preconfigured helm for eshell history.
;;; Generated autoloads from helm-eval.el
(autoload 'helm-eval-expression "helm-eval" "\
-Preconfigured helm for `helm-c-source-evaluation-result'.
+Preconfigured helm for `helm-source-evaluation-result'.
\(fn ARG)" t nil)
(autoload 'helm-eval-expression-with-eldoc "helm-eval" "\
-Preconfigured helm for `helm-c-source-evaluation-result' with `eldoc' support.
+Preconfigured helm for `helm-source-evaluation-result' with `eldoc' support.
\(fn)" t nil)
(autoload 'helm-calcul-expression "helm-eval" "\
-Preconfigured helm for `helm-c-source-calculation-result'.
+Preconfigured helm for `helm-source-calculation-result'.
\(fn)" t nil)
;;;***
-;;;### (autoloads (helm-c-run-external-command) "helm-external" "helm-external.el"
+;;;### (autoloads (helm-run-external-command) "helm-external" "helm-external.el"
;;;;;; (20730 55660 80651 604000))
;;; Generated autoloads from helm-external.el
-(autoload 'helm-c-run-external-command "helm-external" "\
+(autoload 'helm-run-external-command "helm-external" "\
Preconfigured `helm' to run External PROGRAM asyncronously from Emacs.
If program is already running exit with error.
You can set your own list of commands with
-`helm-c-external-commands-list'.
+`helm-external-commands-list'.
\(fn PROGRAM)" t nil)
@@ -853,107 +853,107 @@ You can set your own list of commands with
\(fn)" t nil)
(autoload 'helm-ff-run-switch-to-history "helm-files" "\
-Run Switch to history action from `helm-c-source-find-files'.
+Run Switch to history action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-grep "helm-files" "\
-Run Grep action from `helm-c-source-find-files'.
+Run Grep action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-pdfgrep "helm-files" "\
-Run Pdfgrep action from `helm-c-source-find-files'.
+Run Pdfgrep action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-zgrep "helm-files" "\
-Run Grep action from `helm-c-source-find-files'.
+Run Grep action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-copy-file "helm-files" "\
-Run Copy file action from `helm-c-source-find-files'.
+Run Copy file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-rename-file "helm-files" "\
-Run Rename file action from `helm-c-source-find-files'.
+Run Rename file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-byte-compile-file "helm-files" "\
-Run Byte compile file action from `helm-c-source-find-files'.
+Run Byte compile file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-load-file "helm-files" "\
-Run Load file action from `helm-c-source-find-files'.
+Run Load file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-eshell-command-on-file "helm-files" "\
-Run eshell command on file action from `helm-c-source-find-files'.
+Run eshell command on file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-ediff-file "helm-files" "\
-Run Ediff file action from `helm-c-source-find-files'.
+Run Ediff file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-ediff-merge-file "helm-files" "\
-Run Ediff merge file action from `helm-c-source-find-files'.
+Run Ediff merge file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-symlink-file "helm-files" "\
-Run Symlink file action from `helm-c-source-find-files'.
+Run Symlink file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-hardlink-file "helm-files" "\
-Run Hardlink file action from `helm-c-source-find-files'.
+Run Hardlink file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-delete-file "helm-files" "\
-Run Delete file action from `helm-c-source-find-files'.
+Run Delete file action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-complete-fn-at-point "helm-files" "\
-Run complete file name action from `helm-c-source-find-files'.
+Run complete file name action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-switch-to-eshell "helm-files" "\
-Run switch to eshell action from `helm-c-source-find-files'.
+Run switch to eshell action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-switch-other-window "helm-files" "\
-Run switch to other window action from `helm-c-source-find-files'.
+Run switch to other window action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-switch-other-frame "helm-files" "\
-Run switch to other frame action from `helm-c-source-find-files'.
+Run switch to other frame action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-open-file-externally "helm-files" "\
-Run open file externally command action from `helm-c-source-find-files'.
+Run open file externally command action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-open-file-with-default-tool "helm-files" "\
-Run open file externally command action from `helm-c-source-find-files'.
+Run open file externally command action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-locate "helm-files" "\
-Run locate action from `helm-c-source-find-files'.
+Run locate action from `helm-source-find-files'.
\(fn)" t nil)
@@ -963,17 +963,17 @@ Run locate action from `helm-c-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-gnus-attach-files "helm-files" "\
-Run gnus attach files command action from `helm-c-source-find-files'.
+Run gnus attach files command action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-etags "helm-files" "\
-Run Etags command action from `helm-c-source-find-files'.
+Run Etags command action from `helm-source-find-files'.
\(fn)" t nil)
(autoload 'helm-ff-run-print-file "helm-files" "\
-Run Print file action from `helm-c-source-find-files'.
+Run Print file action from `helm-source-find-files'.
\(fn)" t nil)
@@ -1117,38 +1117,38 @@ Preconfigured `helm' for gentoo linux.
;;;### (autoloads (helm-do-pdfgrep helm-do-zgrep helm-do-grep helm-grep-mode-jump-other-window
;;;;;; helm-grep-mode-jump-other-window-backward helm-grep-mode-jump-other-window-forward
;;;;;; helm-grep-mode-jump helm-grep-mode-quit helm-gm-precedent-file
-;;;;;; helm-gm-next-file helm-grep-mode 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-gm-next-file helm-grep-mode helm-grep-run-save-buffer
+;;;;;; helm-grep-run-other-window-action helm-grep-run-default-action
+;;;;;; helm-grep-run-persistent-action helm-goto-next-file helm-goto-precedent-file)
;;;;;; "helm-grep" "helm-grep.el" (20751 35091 729252 795000))
;;; Generated autoloads from helm-grep.el
-(autoload 'helm-c-goto-precedent-file "helm-grep" "\
+(autoload 'helm-goto-precedent-file "helm-grep" "\
Go to precedent file in helm grep/etags buffers.
\(fn)" t nil)
-(autoload 'helm-c-goto-next-file "helm-grep" "\
+(autoload 'helm-goto-next-file "helm-grep" "\
Go to precedent file in helm grep/etags buffers.
\(fn)" t nil)
-(autoload 'helm-c-grep-run-persistent-action "helm-grep" "\
+(autoload 'helm-grep-run-persistent-action "helm-grep" "\
Run grep persistent action from `helm-do-grep-1'.
\(fn)" t nil)
-(autoload 'helm-c-grep-run-default-action "helm-grep" "\
+(autoload 'helm-grep-run-default-action "helm-grep" "\
Run grep default action from `helm-do-grep-1'.
\(fn)" t nil)
-(autoload 'helm-c-grep-run-other-window-action "helm-grep" "\
+(autoload 'helm-grep-run-other-window-action "helm-grep" "\
Run grep goto other window action from `helm-do-grep-1'.
\(fn)" t nil)
-(autoload 'helm-c-grep-run-save-buffer "helm-grep" "\
+(autoload 'helm-grep-run-save-buffer "helm-grep" "\
Run grep save results action from `helm-do-grep-1'.
\(fn)" t nil)
@@ -1223,10 +1223,10 @@ Preconfigured helm for pdfgrep.
;;;***
;;;### (autoloads (helm-describe-helm-attribute helm-moccur-help
-;;;;;; helm-buffers-ido-virtual-help helm-esh-help helm-c-bookmark-help
-;;;;;; helm-c-ucs-help helm-etags-help helm-pdfgrep-help helm-grep-help
+;;;;;; helm-buffers-ido-virtual-help helm-esh-help helm-bookmark-help
+;;;;;; helm-ucs-help 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" "helm-help.el"
+;;;;;; helm-buffer-help helm-help) "helm-help" "helm-help.el"
;;;;;; (20761 13636 359268 183000))
;;; Generated autoloads from helm-help.el
@@ -1242,7 +1242,7 @@ Help of `helm'.
\(fn)" t nil)
-(autoload 'helm-c-buffer-help "helm-help" "\
+(autoload 'helm-buffer-help "helm-help" "\
Help command for helm buffers.
\(fn)" t nil)
@@ -1277,12 +1277,12 @@ The help function for etags.
\(fn)" t nil)
-(autoload 'helm-c-ucs-help "helm-help" "\
+(autoload 'helm-ucs-help "helm-help" "\
Help command for `helm-ucs'.
\(fn)" t nil)
-(autoload 'helm-c-bookmark-help "helm-help" "\
+(autoload 'helm-bookmark-help "helm-help" "\
Help command for bookmarks.
\(fn)" t nil)
@@ -1302,37 +1302,37 @@ Help command for ido virtual buffers.
\(fn)" t nil)
-(defvar helm-buffer-mode-line-string '("Buffer(s)" "\\<helm-c-buffer-map>\\[helm-c-buffer-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "String displayed in mode-line in `helm-c-source-buffers-list'"))
+(defvar helm-buffer-mode-line-string '("Buffer(s)" "\\<helm-buffer-map>\\[helm-buffer-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "String displayed in mode-line in `helm-source-buffers-list'"))
-(defvar helm-buffers-ido-virtual-mode-line-string '("Killed Buffer(s)" "\\<helm-buffers-ido-virtual-map>\\[helm-buffers-ido-virtual-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "String displayed in mode-line in `helm-c-source-buffers-list'"))
+(defvar helm-buffers-ido-virtual-mode-line-string '("Killed Buffer(s)" "\\<helm-buffers-ido-virtual-map>\\[helm-buffers-ido-virtual-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "String displayed in mode-line in `helm-source-buffers-list'"))
(defvar helm-ff-mode-line-string "\\<helm-find-files-map>\\[helm-ff-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "\
-String displayed in mode-line in `helm-c-source-find-files'")
+String displayed in mode-line in `helm-source-find-files'")
-(defvar helm-read-file-name-mode-line-string "\\<helm-c-read-file-map>\\[helm-read-file-name-help]:Help \\[helm-cr-empty-string]:Empty \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "\
-String displayed in mode-line in `helm-c-source-find-files'.")
+(defvar helm-read-file-name-mode-line-string "\\<helm-read-file-map>\\[helm-read-file-name-help]:Help \\[helm-cr-empty-string]:Empty \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "\
+String displayed in mode-line in `helm-source-find-files'.")
(defvar helm-generic-file-mode-line-string "\\<helm-generic-files-map>\\[helm-generic-file-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct \\[helm-toggle-suspend-update]:Tog.suspend" "\
String displayed in mode-line in Locate.")
-(defvar helm-grep-mode-line-string "\\<helm-c-grep-map>\\[helm-grep-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct \\[helm-toggle-suspend-update]:Tog.suspend" "\
+(defvar helm-grep-mode-line-string "\\<helm-grep-map>\\[helm-grep-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct \\[helm-toggle-suspend-update]:Tog.suspend" "\
String displayed in mode-line in `helm-do-grep'.")
-(defvar helm-pdfgrep-mode-line-string "\\<helm-c-pdfgrep-map>\\[helm-pdfgrep-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct \\[helm-toggle-suspend-update]:Tog.suspend" "\
+(defvar helm-pdfgrep-mode-line-string "\\<helm-pdfgrep-map>\\[helm-pdfgrep-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct \\[helm-toggle-suspend-update]:Tog.suspend" "\
String displayed in mode-line in `helm-do-pdfgrep'.")
-(defvar helm-etags-mode-line-string "\\<helm-c-etags-map>\\[helm-etags-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "\
-String displayed in mode-line in `helm-c-etags-select'.")
+(defvar helm-etags-mode-line-string "\\<helm-etags-map>\\[helm-etags-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "\
+String displayed in mode-line in `helm-etags-select'.")
-(defvar helm-c-ucs-mode-line-string "\\<helm-c-ucs-map>\\[helm-c-ucs-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "\
+(defvar helm-ucs-mode-line-string "\\<helm-ucs-map>\\[helm-ucs-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "\
String displayed in mode-line in `helm-ucs'.")
-(defvar helm-bookmark-mode-line-string '("Bookmark(s)" "\\<helm-c-bookmark-map>\\[helm-c-bookmark-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct") "\
-String displayed in mode-line in `helm-c-source-buffers-list'")
+(defvar helm-bookmark-mode-line-string '("Bookmark(s)" "\\<helm-bookmark-map>\\[helm-bookmark-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct") "\
+String displayed in mode-line in `helm-source-buffers-list'")
(defvar helm-occur-mode-line "\\<helm-map>\\[helm-help]:Help \\<helm-occur-map>\\[helm-occur-run-query-replace-regexp]:Query replace regexp \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct \\[helm-toggle-suspend-update]:Tog.suspend")
-(defvar helm-moccur-mode-line "\\<helm-c-moccur-map>\\[helm-moccur-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct \\[helm-toggle-suspend-update]:Tog.suspend")
+(defvar helm-moccur-mode-line "\\<helm-moccur-map>\\[helm-moccur-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct \\[helm-toggle-suspend-update]:Tog.suspend")
(defvar helm-comp-read-mode-line "\\<helm-comp-read-map>\\[helm-cr-empty-string]:Empty \\<helm-map>\\[helm-help]:Help \\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct")
@@ -1425,7 +1425,7 @@ See `helm-mp-matching-method' for the behavior of each method.
;;;***
;;;### (autoloads (helm-minibuffer-history helm-mini helm-stumpwm-commands
-;;;;;; helm-ratpoison-commands helm-eev-anchors helm-c-insert-latex-math
+;;;;;; helm-ratpoison-commands helm-eev-anchors helm-insert-latex-math
;;;;;; helm-world-time) "helm-misc" "helm-misc.el" (20759 58418
;;;;;; 542505 575000))
;;; Generated autoloads from helm-misc.el
@@ -1435,7 +1435,7 @@ Preconfigured `helm' to show world time.
\(fn)" t nil)
-(autoload 'helm-c-insert-latex-math "helm-misc" "\
+(autoload 'helm-insert-latex-math "helm-misc" "\
Preconfigured helm for latex math symbols completion.
\(fn)" t nil)
@@ -1663,17 +1663,17 @@ Preconfigured helm to browse code.
;;; Generated autoloads from helm-ring.el
(autoload 'helm-mark-ring "helm-ring" "\
-Preconfigured `helm' for `helm-c-source-mark-ring'.
+Preconfigured `helm' for `helm-source-mark-ring'.
\(fn)" t nil)
(autoload 'helm-global-mark-ring "helm-ring" "\
-Preconfigured `helm' for `helm-c-source-global-mark-ring'.
+Preconfigured `helm' for `helm-source-global-mark-ring'.
\(fn)" t nil)
(autoload 'helm-all-mark-rings "helm-ring" "\
-Preconfigured `helm' for `helm-c-source-global-mark-ring' and `helm-c-source-mark-ring'.
+Preconfigured `helm' for `helm-source-global-mark-ring' and `helm-source-mark-ring'.
\(fn)" t nil)
@@ -1733,11 +1733,11 @@ Preconfigured `helm' for emacs process.
;;;***
-;;;### (autoloads (helm-c-etags-select) "helm-tags" "helm-tags.el"
+;;;### (autoloads (helm-etags-select) "helm-tags" "helm-tags.el"
;;;;;; (20754 4630 388276 350000))
;;; Generated autoloads from helm-tags.el
-(autoload 'helm-c-etags-select "helm-tags" "\
+(autoload 'helm-etags-select "helm-tags" "\
Preconfigured helm for etags.
Called with one prefix arg use symbol at point as initial input.
Called with two prefix arg reinitialize cache.
View
150 helm-elisp.el
@@ -28,19 +28,19 @@
"Elisp related Applications and libraries for Helm."
:group 'helm)
-(defcustom helm-c-turn-on-show-completion t
+(defcustom helm-turn-on-show-completion t
"Display candidate in buffer while moving selection when non--nil."
:group 'helm-elisp
:type 'boolean)
-(defcustom helm-c-show-completion-use-special-display t
+(defcustom helm-show-completion-use-special-display t
"A special display will be used in lisp completion if non--nil.
All functions that are wrapped in macro `with-helm-show-completion'
will be affected."
:group 'helm-elisp
:type 'boolean)
-(defcustom helm-c-show-completion-min-window-height 7
+(defcustom helm-show-completion-min-window-height 7
"Minimum completion window height used in show completion.
This is used in macro `with-helm-show-completion'."
:group 'helm-elisp
@@ -65,27 +65,27 @@ This is used in macro `with-helm-show-completion'."
;;
;; Provide show completion with macro `with-helm-show-completion'.
-(defvar helm-c-show-completion-overlay nil)
+(defvar helm-show-completion-overlay nil)
;; Called each time cursor move in helm-buffer.
-(defun helm-c-show-completion ()
+(defun helm-show-completion ()
(with-helm-current-buffer
- (overlay-put helm-c-show-completion-overlay
+ (overlay-put helm-show-completion-overlay
'display (helm-get-selection))))
-(defun helm-c-show-completion-init-overlay (beg end)
- (and helm-c-turn-on-show-completion
- (setq helm-c-show-completion-overlay (make-overlay beg end))
- (overlay-put helm-c-show-completion-overlay
+(defun helm-show-completion-init-overlay (beg end)
+ (and helm-turn-on-show-completion
+ (setq helm-show-completion-overlay (make-overlay beg end))
+ (overlay-put helm-show-completion-overlay
'face 'helm-lisp-show-completion)))
-(defun helm-c-show-completion-display-function (buffer &rest _args)
+(defun helm-show-completion-display-function (buffer &rest _args)
"A special resized helm window is used depending on position in BUFFER."
(with-selected-window (selected-window)
(let* ((screen-size (+ (count-screen-lines (window-start) (point) t)
1 ; mode-line
(if header-line-format 1 0))) ; header-line
(def-size (- (window-height)
- helm-c-show-completion-min-window-height))
+ helm-show-completion-min-window-height))
(upper-height (max window-min-height (min screen-size def-size)))
split-window-keep-point)
(recenter -1)
@@ -99,22 +99,22 @@ This is used in macro `with-helm-show-completion'."
BEG and END are the beginning and end position of the current completion
in `helm-current-buffer'.
BODY is an helm call where we want to enable show completion.
-If `helm-c-turn-on-show-completion' is nil just do nothing."
+If `helm-turn-on-show-completion' is nil just do nothing."