[elpa] externals/eev 834e074 10/64: `find-customizegroup'

[Stefan Monnier]

branch: externals/eev
commit 834e0745c9aa5349255ff3b12b9f4c25cc06df81
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    `find-customizegroup'
---
 VERSION       |  4 ++--
 eev-blinks.el | 14 ++++++++++++--
 eev-elinks.el | 10 +++++++++-
 3 files changed, 23 insertions(+), 5 deletions(-)

diff --git a/VERSION b/VERSION
index 3ccc3c2..7a65f48 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Nov 16 05:01:13 GMT 2013
-Sat Nov 16 03:01:13 BRST 2013
+Mon Nov 18 01:35:52 GMT 2013
+Sun Nov 17 23:35:52 BRST 2013
diff --git a/eev-blinks.el b/eev-blinks.el
index 55c3c75..982cd17 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -22,7 +22,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2013nov15
+;; Version:    2013nov17
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -76,7 +76,7 @@
 (autoload 'word-at-point "thingatpt")
 (autoload 'list-iso-charset-chars     "mule-diag")
 (autoload 'list-non-iso-charset-chars "mule-diag")
-
+(autoload 'customize-read-group "cus-edit")
 
 
 ;;;            _    
@@ -327,6 +327,16 @@ This is a high-level alternative to `find-etpat'."
   (apply 'find-wottb-call '(describe-package pkg-desc)
         "*Help*" pos-spec-list))
 
+(defun find-customizegroup (group &rest pos-spec-list)
+  "Hyperlink to the result of running `customize-group' on GROUP."
+  (interactive (list (customize-read-group)))
+  (when (stringp group)
+    (if (string-equal "" group)
+       (setq group 'emacs)
+      (setq group (intern group))))
+  (apply 'find-wottb-call '(customize-group group)
+        (format "*Customize Group: %s*" (custom-unlispify-tag-name group))
+        pos-spec-list))
 
 
 
diff --git a/eev-elinks.el b/eev-elinks.el
index bdf641e..0e4a1ca 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2013nov16
+;; Version:    2013nov17
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -880,6 +880,7 @@ This needs a temporary directory; see: 
(find-prepared-intro)"
 (defun ee-dired-bufferp    () (eq major-mode 'dired-mode))
 (defun ee-wdired-bufferp   () (eq major-mode 'wdired-mode))
 (defun ee-w3m-bufferp      () (eq major-mode 'w3m-mode))
+(defun ee-custom-bufferp   () (eq major-mode 'Custom-mode))
 
 ;; By buffer name
 (defun ee-intro-bufferp    () (ee-buffer-re "^\\*(find-\\(.*\\)-intro)\\*$"))
@@ -916,6 +917,12 @@ This needs a temporary directory; see: 
(find-prepared-intro)"
   (let ((mp (ee-buffer-re ee-man-re)))
     `((find-man ,mp))))
 
+(defvar ee-custom-re "^\\*Customize Group: \\(.*\\)\\*$")
+(defun  ee-find-custom-links () 
+  (let* ((name   (ee-buffer-re ee-custom-re))
+        (symbol (intern (downcase (replace-regexp-in-string " " "-" name)))))
+    `((find-customizegroup ',symbol))))
+
 ;; Other cases
 (defun ee-file-bufferp     () buffer-file-name)
 
@@ -938,6 +945,7 @@ This needs a temporary directory; see: 
(find-prepared-intro)"
        ((ee-w3m-bufferp)      (cons "" (ee-find-w3m-links)))      ; M-h M-w
        ((ee-dired-bufferp)    (cons "" (ee-find-file-links)))     ; M-h f
        ((ee-wdired-bufferp)   (cons "" (ee-find-file-links)))     ; M-h f
+       ((ee-custom-bufferp)   (cons "" (ee-find-custom-links)))   ; ?
        ;; by buffer name
        ((ee-intro-bufferp)    (cons "" (ee-find-intro-links)))    ; M-h M-i
        ((ee-freenode-bufferp) (cons "" (ee-find-freenode-links))) ; ?